Вопрос по информатике:
Дано двузначное число. Определить, кратна ли трем сумма его цифр?( Pascal)
Пожаловаться
- 23.03.2018 12:28
- Информатика
- remove_red_eye 3304
- thumb_up 18
Ответы и объяснения 1
Если вводится натуральное двузначное число:
var n,s:integer;
begin
write('n = ');
readln(n);
s:=(n div 10)+(n mod 10);
writeln('s = ',s);
if s mod 3 = 0
then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.
Пример:
n = 56
s = 11
Сумма цифр не кратна 3
var n,s:integer;
begin
write('n = ');
readln(n);
s:=(n div 10)+(n mod 10);
writeln('s = ',s);
if s mod 3 = 0
then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
end.
Пример:
n = 56
s = 11
Сумма цифр не кратна 3
Пожаловаться
- 24.03.2018 18:02
- thumb_up 51
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы