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

Question

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

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.