Question

Решить в паскале :
дано двузначное число,
определить :
а) кратно ли 3 сумма его цифр;
б) кратно ли сумма его цифр числу a

Answer 1

var a, c: integer;

begin
read(c, a);
if ((c mod 10 + c div 10) mod 3 = 0)
    writeln('кратно 3');
else
    writeln('не кратно 3');
if ((c mod 10 + c div 10) mod a = 0)
    writeln('кратно ', a);
else
    writeln('не кратно ', a);
end.