Задачи на repeat,while

[Chief]

Дано натуральное число n. Вычислить 1*2+2*3*4+...+n*(n+1)*...2*n
это на repeat.Завтра к отчету нужно!А думать уже не могу!

[Horknee]

Сообщение от Chief

А думать уже не могу!

Или не хочу

[alex_fcsm]

var i,n:integer;
    s:real;
    
begin
 readln(n);
 i:=1;
 repeat
 s:=s+i*(i+1);
 inc(i)
 until i=2*n;
 writeln(s:8:0);
end.

[Chief]

Сообщение от Horknee

Или не хочу

в том то и дело,что не могу!!!столько дел....

[capta1n]

Вот мой вариант:

program repeat1;
var
 n,i : byte;
 k : 0..510;
 so,sum : longint;
begin

  readln(n);
  i:=0;
  sum:=0;
  repeat
    so:=1;
    i:=i+1;
    for k:=i to 2*i do
     so:=so*k;
    sum:=sum+so
  until i=n;
  writeln (sum);
  readln

end.

[Chief]

спасибо!!!

[Chief]

C:\Documents and Settings\Данил\Мои документы\Мои рисунки\Новая папка\2.jpg

[Alex21]

Сообщение от Chief

C:\Documents and Settings\Данил\Мои документы\Мои рисунки\Новая папка\2.jpg

Используй файловые серверы.