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

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

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

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

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

var i:integer;
begin
for i:=10 to 99 do
if ((i div 10)+(i mod 10)) mod 3 = 0 then write(i,' ');
end.

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

В данном коде происходит поиск всех двузначных чисел, сумма цифр которых делится нацело на 3. Переменная i является целочисленной и используется для перебора чисел от 10 до 99. Внутри цикла for проверяется условие: если сумма цифр числа i делится нацело на 3, то число записывается в выходной поток. Таким образом, в результате выполнения данного кода будут выведены все двузначные числа, сумма цифр которых делится нацело на 3.