Предмет: Информатика, автор: mashA1112002

Паскаль
Найдите сумму квадратов всех натуральных чисел от 1 до 100. Решите эту задачу с использованием всех трёх видов циклов

Ответы

Автор ответа: csharp
1

Цикл for

  1. uses Math;
  2. var
  3.    i: integer;
  4.    sum: real;
  5. begin
  6.    for i := 1 to 100 do
  7.        Sum := Sum + Sqr(i);
  8.    Writeln(Sum);
  9. end.

Цикл while (предусловие)

  1. uses Math;
  2. var
  3.    i: integer;
  4.    sum: real;
  5. begin
  6.    while i <= 100 do
  7.        begin
  8.            Sum := Sum + Sqr(i);
  9.            i := i + 1;
  10.        end;
  11.    Writeln(Sum);
  12. end.

Цикл repeat..until (постусловие)

  1. uses Math;
  2. var
  3.    i: integer;
  4.    sum: real;
  5. begin
  6.    repeat
  7.        i := i + 1;
  8.        Sum := Sum + Sqr(i);
  9.    until i >= 100;
  10.    Writeln(Sum);
  11. end.
Похожие вопросы
Предмет: Математика, автор: superilia2011