Составьте блок-схему алгоритма определения количества четных чисел среди заданных целых чисел a b и c

Question

Информатика

Дюся

16 июля, 00:20

Составьте блок-схему алгоритма определения количества четных чисел среди заданных целых чисел a b и c

+3

Ответы (1)

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

Олегушка · Answer 1

Var

a, b, c, s:integer;

Begins:=0;

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

readln (a, b, c) ;

If a mod 2=0 then s:=s+1;

If b mod 2=0 then s:=s+1;

If c mod 2=0 then s:=s+1;

writeln ('Количество четных чисел=', s) ;

end.