Задачи с использованием циклов (PascalABC.NET)

Факториал

Факториалом натурального числа n! называется произведение всех членов натурального ряда чисел от 1 до n включительно. Найти и вывести значения факториала 4-х чисел введённых пользователем.

Организуем цикл с количеством повторений, равным четырем. Для очередного введенного n вычисляется и выводится значение n!. С учетом вычисления 100! используем тип real.

1 ##
2 loop 4 do // 4 раза вводим значения n
3 begin
4  var n := ReadInteger('n =');
5  var p := 1.0;
6  for var i := 1 to n do
7  p *= i;
8  Writeln(n, '! = ', p)
9 end.

n = 5
5! = 120
n = 10
10! = 3628800
n = 20
20! = 2.43290200817664E+18
n = 100
100! = 9.33262154439441E+157

Cумму первых ста чисел натурального ряда

Найти сумму первых ста чисел натурального ряда.

Пример задачи, которую нужно решать на калькуляторе. Или на бумажке, «в столбик». Натуральный ряд чисел – арифметическая прогрессия, у которой первый член и разность равны единице. Формула для нахождения суммы n членов арифметической прогрессии в данном случае приводится к выражению 0.5∙(1 + 100)∙100, значение которого равно 5050. Учителя предлагают школьникам эту задачу, требуя использовать циклы и демонстрируя тем самым, что программисту не следует думать над тем, как составлять алгоритм. На их месте я бы давал оба подхода. Используем цикл for, поскольку количество повторений известно, а в теле цикла нужно последовательно получать значения ряда чисел 1, 2, 3, … n и суммировать их.

1 ##
2 var s := 0;
3 for var i := 1 to 100 do
4   s += i;
5 Print(s);

5050