Составить алгоритм(циклическую конструкцию) выводящий квадрат суммы первых N чисел - Turbo Pascal

Формулировка задачи:

Извиняюсь, что не туда пишу. Но нужно срочно. Составить алгоритм(циклическую конструкцию) выводящий квадрат суммы первых N чисел. Заранее спасибо, уважаемые.

Код к задаче: «Составить алгоритм(циклическую конструкцию) выводящий квадрат суммы первых N чисел - Turbo Pascal»

textual
var
  i, n : integer;
  s : real;
begin
  s := 0;
  write('введите число: ');
  readln(n);
  for i := 1 to n do
    s := s + i;
  writeln('квадрат суммы первых ', n, ' чисел: ', sqr(s):0:0);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ