Объясните, что делает данный алгоритм на Pascal: - вопрос №114911181 от firuzakushmano 18.11.2021 23:10

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);

firuzakushmano · 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);