Предмет: Информатика,
автор: lord861
дано двухзначное число определить кратна ли трем сумма его цифр
Ответы
Автор ответа:
0
var
a:integer;
begin
write('Введите число: '); read(a);
if (((a mod 10)+(a div 10))mod 3=0) then
write('Сумма цифр кратна 3')
else write('Сумма цифр не кратна 3');
end.
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: История,
автор: madinakockartaeva66
Предмет: Қазақ тiлi,
автор: kulysovaagajsa
Предмет: Алгебра,
автор: LoveЯрмак