Найти двухзначное число, равное сумме цифр его десятков и квадрата цифр единиц. - Pascal

2. Найти двухзначное число, равное сумме цифр его десятков и квадрата цифр единиц.

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

var i:byte;
begin
for i:=10 to 99 do
if i div 10 + sqr(i mod 10)=i then write(i,' ');
readln
end.

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

Переменная i инициализируется значением byte, что означает, что она может хранить значение от 0 до 255.
В цикле for переменная i принимает значения от 10 до 99 (включительно).
Внутри цикла проверяется условие if i div 10 + sqr(i mod 10)=i, где div означает деление, а mod - остаток от деления. Это условие проверяет, является ли число i двухзначным, то есть состоит из цифр, которые в сумме дают 10, а также удовлетворяет условию суммы цифр десятков и квадрата цифр единиц.
Если условие истинно, то число i выводится на экран с помощью функции write(i, ' '), где i - это значение переменной i, а пробел используется в качестве разделителя.
После выполнения цикла readln вызывается для чтения следующего числа.
Код завершается, когда функция readln не может прочитать следующее число.