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.

Answer 2

Можно решить эту задачу с помощью трёх разных видов циклов: for, while и repeat-until. Вот как это можно сделать на языке программирования Паскаль:

Используя цикл for:

bashCopy code
program SumOfSquares;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 100 do
    sum := sum + i * i;
  writeln('Сумма квадратов всех натуральных чисел от 1 до 100 равна ', sum);
end.

Используя цикл while:

cssCopy code
program SumOfSquares;
var
  i, sum: integer;
begin
  sum := 0;
  i := 1;
  while i <= 100 do
  begin
    sum := sum + i * i;
    i := i + 1;
  end;
  writeln('Сумма квадратов всех натуральных чисел от 1 до 100 равна ', sum);
end.

Используя цикл repeat-until:

cssCopy code
program SumOfSquares;
var
  i, sum: integer;
begin
  sum := 0;
  i := 1;
  repeat
    sum := sum + i * i;
    i := i + 1;
  until i > 100;
  writeln('Сумма квадратов всех натуральных чисел от 1 до 100 равна ', sum);
end.

Все три программы выведут одинаковый результат: "Сумма квадратов всех натуральных чисел от 1 до 100 равна 338350".