• Решить в паскале :
    дано двузначное число,
    определить :
    а) кратно ли 3 сумма его цифр;
    б) кратно ли сумма его цифр числу a

Ответы 1

  • var a, c: integer;beginread(c, a);if ((c mod 10 + c div 10) mod 3 = 0)    writeln('кратно 3');else    writeln('не кратно 3');if ((c mod 10 + c div 10) mod a = 0)    writeln('кратно ', a);else    writeln('не кратно ', a);end.
    • Автор:

      glenn82
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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