Question

Найти квадрат суммы первых 1000 натуральных чисел

Answer 1

Ответ:

pascal

Объяснение:

var i: integer;

   res: real;

begin

 for i := 1 to 1000 do res := res + i;

 res := sqr(res);

 WriteLn(res);  

end.