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

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

Question

Информатика

Костяха

8 октября, 11:28

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

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

+5

Ответы (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.