Дано двузначное число.определить кратна ли трем сумма его цифр

Ответы

Ответ дал: Мавортий
0
var a:integer;
begin
writeln('Введите двузначное число');
readln(a);
if (a mod 3 =0) then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.
Ответ дал: Мавортий
0
А зачем мне сумму считать,если числа,у которых сумма цифр кратна 3,делятся на 3?)
Ответ дал: Аноним
0
А ведь ты прав! Приношу свои извинения, не подумал про это. Хотя, если так посудить, на уроке спрашивать будут "универсальный" вариант, который легко переделать под любое число.
Похожие вопросы