Ввести с клавиатуры естественное число. Напечатать ДА, если оно состоит из

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

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

Задать свой вопрос
1 ответ
Function IsSame(n:integer):string;
var
i:integer;
begin
IsSame:='Да';
while ngt;=10 do
if (n mod 10) lt;gt; ( (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. 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт