Регистрация
vitaming
06.05.2021 22:03
Информатика
Есть ответ 👍

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

123
413
Посмотреть ответы 2

Ответы на вопрос:

begk55
begk55
4,6(58 оценок)
1

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.

2

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.

djastin05
djastin05
4,8(64 оценок)

1010

Объяснение:

(s < 100) да

(s mod 10 = 3) нет

writeln(1010)

Популярно: Информатика