Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Определить, все ли цифры натурального числа n одинаковы.

Ответ оставил Гость

Pascal

 var   
a,b : integer;   
r : boolean;    
begin 
readln (a); 
r := true;  
b := a mod 10;     

While a > 0 do   
 begin   
  if a mod 10 <> b then   
  begin   
   r := false;   
   a := 0;   
  end;  
 a := a div 10;   
 end;       

if r then   
writeln (Все цифры числа одинаковы)   
else   
writeln (Цифры числа различны); 
end.