Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом

Question

Информатика

Чита

24 февраля, 22:11

Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом

+2

Ответы (1)

Знаете ответ на вопрос?

Назиля · Answer 1

Program n_10;

var a, b, c, x: integer; R:Boolean;

begin

WriteLn ('Введите трехзначное число>>') ;

ReadLn (x) ;

a:=x div 1000;

b: = (x mod 1000) div 100;

c:=x mod 10;

R: = (a*b*c) mod 2 = 0;

WriteLn ('Произведение цифр четно?', R)

end.