Дано двузначное число.определить кратна ли трем сумма его цифр
5-9 класс
|
Shokoladkamarmeladka
10 июля 2013 г., 20:20:46 (10 лет назад)
Tatuand2014
10 июля 2013 г., 22:48:07 (10 лет назад)
var a:integer;
begin
writeln('Введите двузначное число');
readln(a);
if (a mod 3 =0) then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.
Ответить
Другие вопросы из категории
Читайте также
Программу надо написать в PascalABC, с использованием команд repeat и until. Ввести натуральное число и определить, какие цифры встречаются несколько раз
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
Напишите программу в Паскаль для решения задачи:
Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10
Вы находитесь на странице вопроса "Дано двузначное число.определить кратна ли трем сумма его цифр", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.