Предмет: Информатика,
автор: AntonEvtuhov1337
Дано трехзначное число 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.
Похожие вопросы
Предмет: Физика,
автор: elinanikitchenko20
Предмет: Физика,
автор: Аноним
Предмет: Русский язык,
автор: halimovabonu90
Предмет: Математика,
автор: Ихтик1
Предмет: Литература,
автор: NatyaBruck