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

Question

Информатика

Фотина

24 ноября, 23:06

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

+4

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