Объясните, что делает данный алгоритм на Pascal: - вопрос №114902161 от Daffynsky01 14.04.2021 08:26

Question

Информатика: Объясните, что делает данный алгоритм на Pascal: for i:=1 to n do begin write( a( ,i, )= ); readln(a); if not odd(a) then inc(k); end; if k=0 then writeln( нет четных ) else writeln( количество четных... ,k);

Daffynsky01 · Answer

Считает количество введенных четных чисел Объяснение:...

Объясните, что делает данный алгоритм на Pascal: for i:=1 to n do begin write('a(',i,')='); readln(a); if not odd(a) then inc(k); end; if k=0 then writeln('нет четных ') else writeln('количество четных...',k);

Объясните, что делает данный алгоритм на Pascal:
for i:=1 to n do
begin write('a(',i,')='); readln(a);
if not odd(a) then inc(k);
end;
if k=0 then writeln('нет четных ') else writeln('количество четных...',k);