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

Question

Информатика

Генюся

30 мая, 05:59

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

+4

Ответы (1)

Знаете ответ на вопрос?

Твердислав · 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.