Объясните, что делает данный алгоритм на 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);

VelievaAyka18    2   19.04.2020 19:14    0