Запишите алгоритм определения количества четных чисел среди заданных целых чисел а,в,с
Запишите алгоритм определения количества четных чисел среди заданных целых чисел а,в,с
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b,c,n:integer;
begin
n:=0;
readln(a);
readln(b);
readln(c);
if (a mod 2)=0 then
n:=n+1;
if (b mod 2)=0 then
n:=n+1;
if (c mod 2)=0 then
n:=n+1;
writeln('kolichestvo= ', n);
end.
Не нашли ответ?
Похожие вопросы