Дано N (N - натуральное число) целых чисел от 1 до 255. Определить среди них числа,...

Question

Дано N (N - натуральное число) целых чисел от 1 до 255. Определить среди них числа, запись которых состоит только из одинаковых цифр. (с циклом нужно сделать)

Comments

на какой языке-то?

---

паскаль

Answer 1

Program odinakov;
var i, it, il:integer;t: boolean;
begin 
for i:=1 to 255 do 
begin
t:=true;
it:=i;   
il:=i mod 10;   
while it <> 0 do   
begin     
if it mod 10 <> il then      
begin        
t:=false;       
break;     
end;     
it:=it div 10;   
end;   
if t then writeln(i); 
end;
end.

Comments

с 1 до 9 не нужно

---

поменяйте просто в: for i:=1 to 255 do

---

на for i:=10 to 255 do