Дано четырехзначное число. Определить, кратна ли трем сумма его цифр. Написать программу в паскале. Не используя массивы и циклы.

Предыдущий
вопрос Следующий
вопрос

program CheckSumMultipleOfThree;

va
num, sum, remainder: Integer;

begi
// вводим четырехзначное числ
write('Введите четырехзначное число: ')
readln(num);

// находим сумму цифр числ
sum := (num div 1000) + ((num div 100) mod 10) + ((num div 10) mod 10) + (num mod 10);

// проверяем кратность суммы цифр числа трё
remainder := sum mod 3;

if remainder = 0 the
writeln('Сумма цифр числа кратна трем'
els
writeln('Сумма цифр числа не кратна трем')
end.