Предмет: Информатика, автор: AntonEvtuhov1337

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

Ответы

Автор ответа: posledneeutro
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.
Похожие вопросы
Предмет: Литература, автор: NatyaBruck