Найти сумму натуральных чисел от 1 до 50. Написать программу на языке Паскаль по теме "вложенность цикла".

Сумма натуральных чисел от 1 до 50:

Ниже пример программы на Паскале с вложенными циклами, где внешним циклом перебираются «десятки», а внутренним — «единицы»; таким образом мы последовательно получаем все числа от 1 до 50 и накапливаем их сумму.

pascal
Копировать код
program Sum1to50Nested;
var
  i, j, n, s: integer;
begin
  s := 0;
  for i := 0 to 4 do                 { пять десятков: 0..4 }
    for j := 1 to 10 do              { по десять чисел в каждом десятке }
    begin
      n := i * 10 + j;               { n принимает значения 1..50 }
      s := s + n;                    { накапливаем сумму }
    end;
  writeln('Сумма чисел от 1 до 50 = ', s);  { должно вывести 1275 }
end.

Для темы «вложенность цикла» это наглядный вариант: внутренний цикл пробегает числа внутри каждого блока из десяти, а внешний — переключает блоки (0–9 → 10–19 → … → 40–49), вместе давая диапазон 1..50.