Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Написать простую программу(паскаль)
Дано три числа a, b, c .
В случае четности одного из них на экран выводится «Хотя бы одно из них четно» в противном случае «Ни одного четного».

Ответ оставил Гость

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.