Нахождение двузначных чисел, у которых сумма кубов цифр делится на 3 (постусловие) - Turbo Pascal

Узнай цену своей работы

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

составить программу нахождения двузначных чисел у которых сумма кубов цифр делиться на 3

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

textual
Листинг программы
var a, b: Integer;
begin
  for a:=1 to 9 do for b:=0 to 9 do
    if (a*a*a+b*b*b) mod 3=0 then Write(' ',a,b);
end.

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

В данном коде используется два вложенных цикла for, которые выполняются от 1 до 9. Внутренний цикл выполняется для каждой цифры числа, а внешний цикл - для каждой пары цифр. Проверяется условие (a*a*a+b*b*b) mod 3=0, где a и b - это текущие цифры числа. Если это условие выполняется, то выводится пробел и текущие цифры числа. Таким образом, код выводит все двузначные числа, у которых сумма кубов цифр делится на 3.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы