Даны целые числа a, b, c написать программу определяющую есть ли среди них четные числа если есть вывести true иначевывести false

Question

Информатика

Митюня

24 июня, 09:25

Даны целые числа a, b, c написать программу определяющую есть ли среди них четные числа если есть вывести true иначевывести false

+2

Ответы (1)

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

Каллисфения · Answer 1

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.