Вывести все трехзначные числа,которые делятся на свою первую цифру Пожалуйста,помогите

2

Ответы и объяснения

2012-11-15T13:19:43+04:00

111,222,333,444,555,666,777,888,999,393,339,484,448,224,242,248,284,246,264
их слишком много.подумай немножко

2012-11-15T13:56:29+04:00

var

first,i:integer;

begin

for i:=100 to 999 do

begin

first:=i div 100;

if (i mod first)=0 then write(i+' ');

end;

end.