Вопрос задан 10.04.2021 в 23:37. Предмет Информатика. Спрашивает Стреха Паша.

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

использованием всех трёх видов циклов
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Рудик Саша.

Цикл 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.
0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

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

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

bash
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:

css
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:

css
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".

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос