Объясните, что делает данный алгоритм на Pascal: - вопрос №114902161 от лилькп 12.12.2020 10:52

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

лилькп · 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);