Question

Задача по pascal.

По n≥2 вычислить сумму 1×2+2×3+...+(n-1)×n. Ответ вывести в виде вычисленного выражения и его значения в точности, как показано в примере. То есть, должно выводиться выражение и ответ.

Answer 1

var

   n, r : integer;

   

begin

   while n < 2 do begin

       write('введите n = ');

       readln(n);

       if n < 2 then writeln('n должно быть больше либо равно 2');

   end;

   for var i :=2 to n do begin

       r += (i-1)*i;

       write(IntToStr(i-1)+'*'+i.ToString);

       if i < n then write('+');

   end;

   writeln('='+r.ToString);

end.

протестированно в PascalABC.Net

Answer 2

var n,s: integer;

begin

write ('n = ');

readln (n);

for var i :=1 to n-1 do

begin

s:=s+i*(i+1);

write(i,'*',i+1);

if i <> n-1 then write(' + ')

end;

writeln(' = ',s);

end.