Найти все двузначные числа, сумма цифр которых делится нацело на 3 - Pascal ABC
Формулировка задачи:
Найти все двузначные числа, сумма цифр которых делится нацело на 3
Решение задачи: «Найти все двузначные числа, сумма цифр которых делится нацело на 3»
textual
Листинг программы
- 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
