следующая тема »

[19 Июль 2025, 00:15:38]

Новости, реклама:

[19 Июль 2025, 00:15:38]

Новости, реклама:

[Toby...]

У меня ворос по программе с циклом.(на паскале)В книге хреново написано, может кто скажет, что должно быть написано в операторе WriteLn и как эта программа работает?
program summa1;
const
   n = 100;
var
   i : Integer;
   sum : Real;
begin
   sum := 0;
   i := 1;
while  i <= n do
begin
   sum := sum + 1/i;
   i := i + 1
end;
   WriteLn(?);
end.