Ребят помогите пожалуйста!!!!! с программой Paskal.Ввести четырёх значное число. Определить произведение цифр четырёхзначного числа и определить чётное число или не чётное.
Ребят помогите пожалуйста!!!!! с программой Paskal.
Ввести четырёх значное число. Определить произведение цифр четырёхзначного числа и определить чётное число или не чётное.
Гость
Ответ(ы) на вопрос:
Гостьvar
a, b: word;
i: byte;
begin
b := 1;
readln(a);
writeln((a mod 2 = 0 ? ' Ч' : 'Не ч') + 'ётное');
for i := 0 to 3 do
b *= a mod round(power(10, i + 1)) div round(power(10, i));
writeln(b);
end.
Не нашли ответ?
Похожие вопросы