Нужно перевести с паскаля на кумир Var S:real; N:integer;
Begin
S:=0;N:=0;
repeat
N:=n+1;
S:=s+1/n
Until n>1000;
Writeln(s:0:2);
End.

polina200412    1   05.06.2020 22:54    1