Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру. - Turbo Pascal
Формулировка задачи:
Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру.
Решение задачи: «Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру.»
textual
Листинг программы
var k, i : integer; begin k := 0; for i := 1000 to 9999 do if i mod 10 <> 0 then if (i mod 23 = 0) and (i mod (i mod 10) = 0) then begin inc(k); write(i:5) end; writeln; writeln('количество таких чисел: ', k); readln end.
Объяснение кода листинга программы
- В начале объявляются переменные k и i типа integer.
- Переменная k инициализируется значением 0.
- Затем происходит цикл for, который проходит по числам от 1000 до 9999.
- Внутри цикла проверяется, делится ли число на 10 без остатка. Если нет, то это условие игнорируется.
- Далее проверяется, делится ли число на 23 без остатка. Если да, то это условие также игнорируется.
- Затем проверяется, делится ли число на последнюю цифру числа (которая также является последней цифрой самого числа). Если да, то это условие игнорируется.
- Если все три условия выполняются, то переменная k увеличивается на 1, а число выводится на экран с помощью функции write.
- После окончания цикла выводится общее количество найденных чисел с помощью функции writeln.
- Затем с помощью функции readln считывается ввод пользователя.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д