Определить, состоит ли двузначное число, введенное с клавиатуры, из одинаковых цифр? (напишите код Паскаль)

Question

Информатика

Игорюха

14 апреля, 23:46

Определить, состоит ли двузначное число, введенное с клавиатуры, из одинаковых цифр? (напишите код Паскаль)

+3

Ответы (1)

Знаете ответ?

Галла · Answer 1

Var a: integer;

begin

write ('Введите число: ') ; read (a) ;

if ((a div 10) = (a mod 10)) then writeln ('Цифры одинаковые')

else writeln ('Цифры не одинаковые') ;

end.