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

А) кратна ли трем сумма его цифр

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

А)

var n, m, k:integer;

begin

readln (n);

m:=n div 10;

k:=n mod 10;

if (m+k) mod 3 = 0

then writeln ('Сумма чисел числа ', n,' кратна 3')

else writeln ('Сумма чисел числа ', n,' не кратна 3');

end.

Б)

var n, m, k, a:integer;

begin

readln (n, a);

m:=n div 10;

k:=n mod 10;

if (m+k) mod a = 0

then writeln ('Сумма чисел числа ', n,' кратна ', a)

else writeln ('Сумма чисел числа ', n,' не кратна ', a);

end.

Помог ставь "Лучший ответ"