Ввести с клавиатуры натуральное число. Напечатать ДА, если оно состоит из одинаковых цифр, в противном случае напечатать НЕТ. (проверку оформить в виде процедуры или функции)

Помогите решить в PascalABC

Question

Информатика

Меланя

9 августа, 21:30

Ввести с клавиатуры натуральное число. Напечатать ДА, если оно состоит из одинаковых цифр, в противном случае напечатать НЕТ. (проверку оформить в виде процедуры или функции)

Помогите решить в PascalABC

+4

Ответы (1)

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

Декабрист · Answer 1

Function IsSame (n:integer) : string;

var

i:integer;

begin

IsSame:='Да';

while n>=10 do

if (n mod 10) ((n div 10) mod 10) then

begin

IsSame:='Нет';

exit;

end

else

n:=n div 10;

end;

var

n:integer;

begin

readln (n) ;

writeln (IsSame (n)) ;

end.