1. Напишите программу на языке Паскаль, которая находит все трехзначные числа, которые при делении на 15 дают в остатке

1. Программа на языке Паскаль для нахождения трехзначных чисел:

pascal

program ThreeDigitNumbers;

var

   num: integer;

begin

   for num := 100 to 999 do

   begin

      if (num mod 15 = 11) and (num mod 11 = 9) then

         writeln(num);

   end;

end.

Разъяснение: Данный код на языке Паскаль использует цикл `for`, чтобы перебрать все трехзначные числа из диапазона от 100 до 999. Затем, с помощью оператора `if`, мы проверяем условие, что число при делении на 15 даёт в остатке 11 и при делении на 11 даёт в остатке 9. Если оба условия выполняются, мы выводим число, удовлетворяющее этим условиям, с помощью `writeln`.

Например:

Результат выполнения программы:

165

726

879

...

Совет: При написании программы, убедитесь, что вы правильно используете операторы деления и остатка от деления (`div` и `mod`). Также убедитесь, что вы правильно настроили цикл `for`, чтобы он перебирал все трехзначные числа из заданного диапазона.

Проверочное упражнение: Напишите программу на языке Паскаль, которая будет находить все двузначные числа, кратные 7 и оканчивающиеся на 5.