Предмет: Информатика,
автор: mashA1112002
Паскаль
Найдите сумму квадратов всех натуральных чисел от 1 до 100. Решите эту задачу с использованием всех трёх видов циклов
Ответы
Автор ответа:
1
Цикл for
- uses 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.
Похожие вопросы
Предмет: Математика,
автор: vsnekrasov11
Предмет: Українська мова,
автор: karpenkovala71
Предмет: Математика,
автор: superilia2011
Предмет: Литература,
автор: Tum310713