• Дано двузначное число. Определить, кратна ли трем сумма его цифр?( Pascal)

Ответы 1

  • Если вводится натуральное двузначное число:var n,s:integer;beginwrite('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 = 56s = 11Сумма цифр не кратна 3
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years