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

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

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

Question

Информатика

Артемидка

1 апреля, 17:32

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

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

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

+4

Ответы (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.