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

    Б) кратна ли сумма его цифр числу a.

Ответы 1

  • А)var n,m,k:integer;beginreadln(n);m:=n div 10;k:=n mod 10;if (m+k) mod 3 = 0then writeln('Сумма чисел числа ',n,' кратна 3')else writeln('Сумма чисел числа ',n,' не кратна 3');end.Б)var n,m,k,a:integer;beginreadln(n,a);m:=n div 10;k:=n mod 10;if (m+k) mod a = 0then writeln('Сумма чисел числа ',n,' кратна ',a)else writeln('Сумма чисел числа ',n,' не кратна ',a);end.Помог ставь "Лучший ответ"
  • Добавить свой ответ

Войти через Google

или

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

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

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