Question

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

Answer 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.