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.

Answer 2

там все задания как одна задача?

Answer 3

мне кажется это только 3

Answer 4

Тут одна программа, которая решает три задания (#3,4,5)

Answer 5

Каждый из условных оператор решает одно задание

Answer 6

спасибо