Дополните блок-схему, представив в ней алгоритм определения количества четных чисел, имеющихся среди заданных целых чисел а, в и с
Answers & Comments
Алиса3535п
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.
Answers & Comments
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.