Дано двузначное число.определить кратна ли трем сумма его цифр
Дано двузначное число.определить кратна ли трем сумма его цифр
Гость
Ответ(ы) на вопрос:
Гостьvar a:integer;
begin
writeln('Введите двузначное число');
readln(a);
if (a mod 3 =0) then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.
Не нашли ответ?
Похожие вопросы