Определите какое число будет выведено на экран в результате работы следующей программы:
var i: integer;
k,s: real;
begin
while s<0.9 do
begin
i:=i+1;
k:=1/(2*i);
s:=s+k;
end;
write(i);
end.

DiMOn4iK25    2   22.04.2020 12:47    30