дано трёхзначное число. верно ли что оно состоит из одинаковых цифр. решите через паскаль.

Question

Донара

28 ноября, 17:42

+5

Ответы (1)

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

Адаша · Answer 1

var

a : integer;

begin

read (a) ;

if (a mod 10 = a div 100) and (a mod 10 = a div 10 mod 10) then writeln ('yes') else writeln ('no') ;

end.