Question

Напишите программу которая определяет Верно ли что введенное число состоит из одинаковых цифр
Паскаль

Answer 1

var z,a,s:integer;
begin
readln(z)
a:=z mod 10;
z:=z div 10;
s:=0;
while (z>0) and (s=0) do
if z mod 10<>a then s:=1
else z:=z div 10;
if s=0 then write ('yes')
else write('no');
end.