Сколько раз выполнится цикл
y:=1;
i:=1;
While i>1 do begin
y:=y+1/i;
end;

Bироника    2   21.01.2021 22:09    2