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

Б) кратна ли сумма его цифр числу 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.Помог ставь "Лучший ответ"