var i: integer;
begin
for i:=100 to 200 do
if i mod 3 = 0 then writeln(i);
end.
I=1
f=0+1*1=1
i=2
f=1+2*2=5
i=3
f=5+3*3=14
i=4
f=14+4*4=30
i=5 30+5*5=(55)
42536 / 8=5317 (остаток ==> 0)
5317 / 8=664 (остаток ==> 5<span>)
664 / 8 = 83 </span>(остаток ==> 0<span>)
83 / 8 = 10 </span>(остаток ==> 3<span>)
10 / 8 = 1 </span>(остаток ==> 2<span>)
выписываем начиная с последнего оставшегося числа (1) </span><span>==></span><span> 123050 </span>
Процентекилар по-моему хоть я незнаю чё это