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

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

Question

Информатика

Витюшка

4 января, 16:17

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

Помогите решить в 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.