Даны целые числа a,b,c написать программу определяющую есть ли среди них четные числа если есть вывести true иначевывести false
Даны целые числа a,b,c написать программу определяющую есть ли среди них четные числа если есть вывести true иначевывести false
Гость
Ответ(ы) на вопрос:
ГостьProgram Pr1;
uses crt;
var a,b,c:integer;
f:boolean;
Begin
clrscr;
f:=false;
readln(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f:=true;
writeln(f);
end.
Не нашли ответ?
Похожие вопросы