Question

Помогите решить #3,4,5

Answer 1

var a:integer;

begin

readln (a);

if (a div 10 + a mod 10) mod 6 = 0 then writeln('Сумма цифр числа кратна 6')

else writeln ('Сумма цифр числа не кратна 6');

if a div 10 > a mod 10 then writeln('Цифра десятков числа больше цифры единиц числа')

else writeln ('Цифра десятков числа меньше цифры единиц числа');

if a mod 10 = 6 then writeln('Число оканчивается цифрой 6')

else writeln ('Число не оканчивается цифрой 6')

end.