Дополните блок-схему, представив в ней алгоритм определения количества четных чисел, имеющихся среди заданных целых чисел а, в и с

Вопрос школьника по предмету Другие предметы

Дополните блок-схему, представив в ней алгоритм определения количества четных чисел, имеющихся среди заданных целых чисел а, в и с

Ответ учителя по предмету Другие предметы

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.