Pascal. С клавиатуры вводится 3 числа. определить сколько из них четных.
Pascal. С клавиатуры вводится 3 числа. определить сколько из них четных.
Гость
Ответ(ы) на вопрос:
ГостьVar
A,B,C,n:integer;
Begin
WriteLn('Введите три целых числа');
ReadLn(A,B,C);
n:=0;
if A mod 2 = 0 then N:=N+1;
if B mod 2 = 0 then N:=N+1;
if C mod 2 = 0 then N:=N+1;
WriteLn(N)
End.
Не нашли ответ?
Похожие вопросы