Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 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.
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.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
