Ввести с клавиатуры натуральное число. Напечатать ДА, если оно состоит из одинаковых цифр, в противном случае напечатать НЕТ. (проверку оформить в виде процедуры или функции) Помогите решить в PascalABC
Ввести с клавиатуры натуральное число. Напечатать ДА, если оно состоит из одинаковых цифр, в противном случае напечатать НЕТ. (проверку оформить в виде процедуры или функции)
Помогите решить в PascalABC
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы