Задание:
Дано двузначное числи. Определит. А) кратна ли трем сумма его цифр Б) кратна ли сумма его цифр числу a.
Решение:
А) 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. Помог ставь «Лучший ответ"
Знаете другой ответ?