Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом
Answers & Comments
posledneeutro
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.
Answers & Comments
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.