Ввести двузначное число определить есть ли в его составе цифры кратные 6

Question

Ввести двузначное число определить есть ли в его составе цифры кратные 6

Comments

Какой язык

---

паскаль

Answer 1

var a: integer;

begin

write('Введите двузначное число: ');  

readln(a);

if (a mod 10 = 6) or (a div 10 = 6) then writeln('В его составе есть цифры кратные 6')

else writeln('В его составе нет цифр кратных 6')

end.