Найдите все четырёхзначные числа, которые уменьшаются в 17 раз после отбрасывания первой цифры - Pascal

Формулировка задачи:

Найдите все четырёхзначные числа, которые уменьшаются в 17 раз после отбрасывания первой цифры. В ответе укажите сумму всех таких чисел.

Решение задачи: «Найдите все четырёхзначные числа, которые уменьшаются в 17 раз после отбрасывания первой цифры»

Листинг программы

var
  s: real;
  n, i: longint;
 
begin
  s := 0;
  for i := 1000 to 9999 do
  begin
    n := i mod 1000;
    if n mod 17 = 0 then
    begin
      write(i:5);
      s := s + i;
    end;
  end;
  writeln;
  writeln('Sum: ', s:0:0);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal. Он предназначен для решения задач, связанных с обработкой чисел и данных. Переменные в данном коде:

s: real - переменная для хранения суммы чисел
n, i: longint - переменные для хранения чисел Алгоритм работы программы следующий:
1. Инициализируем переменную s значением 0.
2. Запускаем цикл for, который проходит по всем числам от 1000 до 9999.
3. Внутри цикла определяем остаток от деления числа на 1000 (n), и если он делится на 17 без остатка (mod 17 = 0), то:
  - Выводим число i с помощью функции write(i:5).
  - Добавляем число i к переменной s.
4. После завершения цикла выводим значение переменной s с помощью функции writeln('Sum: ', s:0:0). Таким образом, данный код находит все четырехзначные числа, которые уменьшаются в 17 раз после отбрасывания первой цифры, и выводит их сумму.