Дано натуральное n. Вычислить: S = 1 • 2 +2 • 3 • 4 + . + n •(n + 1) х . х 2n

@RaGon567 · Регистрация: 11.12.2019

Author24 — интернет-сервис помощи студентам

Дано натуральное n. Вычислить: S = 1 • 2 +2 • 3 • 4 + ... + n •(n + 1) х ... х 2n.
написать прогу на паскале именно с помощью оператора цикла с постусловием(repeat и until)

@JuriiMW · 13.12.2019, 04:45

Pascal

begin
  var(s,n):=(Biginteger.Zero,ReadInteger);
  for var i := 1 to n do
    begin
      var(t,u):=(Biginteger.One,i);
      repeat
        t*=u;u+=1;
      until u>2*i;
      s+=t;
    end;
  s.Println;
end.

@RaGon567 · 14.12.2019, 22:37 **[ТС]**

а можно это решить без кортежа и for?

@JuriiMW · 15.12.2019, 05:31

Можно.
Разрешаю!

@RaGon567 · 15.12.2019, 10:27 **[ТС]**

Спасибо!
Но как?

@RaGon567 0 / 0 / 0 Регистрация: 11.12.2019 Сообщений: 4
		1
	Дано натуральное n. Вычислить: S = 1 • 2 +2 • 3 • 4 + . + n •(n + 1) х . х 2n 12.12.2019, 21:11. Показов 801. Ответов 4 Метки паскаль abc.net (Все метки) Дано натуральное n. Вычислить: S = 1 • 2 +2 • 3 • 4 + ... + n •(n + 1) х ... х 2n. написать прогу на паскале именно с помощью оператора цикла с постусловием(repeat и until) 0

@RaGon567 0 / 0 / 0 Регистрация: 11.12.2019 Сообщений: 4
	14.12.2019, 22:37 [ТС]	3
	а можно это решить без кортежа и for? 0

@JuriiMW 5084 / 2655 / 2350 Регистрация: 10.12.2014 Сообщений: 10,046
	15.12.2019, 05:31	4
	Можно. Разрешаю! 0

@RaGon567 0 / 0 / 0 Регистрация: 11.12.2019 Сообщений: 4
	15.12.2019, 10:27 [ТС]	5
	Спасибо! Но как? 0