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

theknow14 theknow14    3   29.04.2019 09:16    1

Ответы
Карапиди Карапиди  09.06.2020 02:15
Цикл foruses Math;var    i: integer;    sum: real;begin    for i := 1 to 100 do        Sum := Sum + Sqr(i);    Writeln(Sum);end.Цикл while (предусловие)uses Math;var    i: integer;    sum: real;begin    while i <= 100 do        begin            Sum := Sum + Sqr(i);            i := i + 1;        end;    Writeln(Sum);end.Цикл repeat..until (постусловие)uses Math;var    i: integer;    sum: real;begin    repeat        i := i + 1;        Sum := Sum + Sqr(i);    until i >= 100;    Writeln(Sum);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика