Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.