Определить, все ли цифры натурального числа n одинаковы.

Question

Информатика

Пульхерия

29 декабря, 11:12

Определить, все ли цифры натурального числа n одинаковы.

+5

Ответы (1)

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

Алинка · Answer 1

Pascal

var

a, b : integer;

r : boolean;

begin

readln (a) ;

r : = true;

b : = a mod 10;

While a > 0 do

begin

if a mod 10 b then

begin

r : = false;

a : = 0;

end;

a : = a div 10;

end;

if r then

writeln ('Все цифры числа одинаковы')

else

writeln ('Цифры числа различны') ;

end.