Дано двузначное числи. Определит

Question

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

Answer 1

52

progres1992

22 февраля 2023

А) 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. Помог ставь «Лучший ответ"

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: