Написать простую программу (паскаль)

Дано три числа a, b, c.

В случае четности одного из них на экран выводится "Хотя бы одно из них четно" в противном случае "Ни одного четного".

Question

Информатика

Викториныч

21 августа, 01:38

Написать простую программу (паскаль)

Дано три числа a, b, c.

В случае четности одного из них на экран выводится "Хотя бы одно из них четно" в противном случае "Ни одного четного".

+3

Ответы (1)

Знаете ответ?

Игуся · Answer 1

Var a, b, c:integer;

begin

writeln ('Введите три числа') ;

read (a, b, c) ;

if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln ('Хотя бы одно из них четно') else writeln ('Ни одного четного') ;

end.