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

Question

Гость

Ответ(ы) на вопрос:

Гость

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.

Accepted Answer

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