(в паскале)(через циклы) 1.найдите сумму первых 10 слагаемых ряда: s=1/3 + 2/6 + 3/9 + 4/12… 2. найти сумму 100 слагаемых 1/3+1/4+1/5+… .

program task31056588;

var

  m, n, s: real;

begin

  m : = 1; n : = 3;

  for var i : = 1 to 10 do

    begin

      s : = s + (m / n);

      m : = m + 1;

      n : = n + 3;

    end;

    writeln(s);

end.

program task31056588;

var

  n, s: real;

begin

  n : = 3;

  for var i : = 1 to 100 do

    begin

      s : = s + (1 / n);

      n : = n + 1;

    end;

    writeln(s);

end.

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.