• Предмет: Информатика
  • Автор: анна00000000
  • Вопрос задан 7 лет назад

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

Ответы

Ответ дал: 13nisa13
0

var a: integer;

begin

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

readln(a);

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

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

end.

Похожие вопросы