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

Question

Информатика

Игорюха

8 апреля, 12:50

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

+2

Ответы (1)

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

Галла · Answer 1

Var a: integer;

begin

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

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

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

end.