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

Question

Информатика

Лейла

6 августа, 09:47

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

+2

Ответы (1)

Знаете ответ на вопрос?

Клавдия · Answer 1

Var a: integer;

begin

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

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

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

end.