• Вопрос по информатике:

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

    • Автор:

      carroll
  • Цикл 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.

    • Отвечал:

      munchkinkusy
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска