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

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

Ответ в комментарии,для лучшей читаемости кода. program chicla; var a,b,c,d,f,sum: integer;   sr: real; begin  writeln('ââåäèòå ïåðâîå ÷èñëî');   readln(a) ;   writeln('ââåäèòå âòîðîå ÷èñëî');   readln(b);   writeln('ââåäèòå òðåòüå ÷èñëî');   readln(c);   writeln('ââåäèòå ÷åòâåðòîå ÷èñëî');   readln(d);   f: =a+b;   if f> 20 then  begin    f: =f-10;     writeln(f);   end  else    begin    f: =f+10;     writeln(f)    end;   if b> =0 then  begin    a: =a-1;     b: =b-1;     c: =c-1;     d: =d-1;     writeln('1 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ',a);     writeln('2 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,b);     writeln('3 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,c);     writeln('4 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,d);   end  else  begin    sr: =(a+b+c+d)/4;     writeln('ñðåäíåå àðèôìåòè÷åñêîå = ' ,sr);   end; end.

A[i]-a[i-1] это сдвиг чисел фибоначчи на 1 вперед т.е. 0,1,1,2,3,5,8,13,21,34,55,89  a[i]-a[i-1]       i       0             1       - подходит       1             2    - подходит       1             3    - подходит       2             4    - подходит       3             5   - подходит       5             6   - подходит       8             7     -не подходит       13             8       21             9       34           10       55           11       89           12 s=1+2+3+4+5+6=21.