<span>327680 бит или 320 Кбит
думаю так!</span>
Var k,x,a:integer;
Begin
x:=100;
k:=0;
repeat
a:=x div 10;
if (x mod a)=0 then
begin
writeln(x);
k:=k+1;
end;
x:=x+1;
until k=70;
End.
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var a:=SeqGen(8,1.0,i->i*0.5).ToArray; // 1 и 2
a.Println(NewLine); // вывод
Writeln('Меньших 0.1: ',a.Count(x->x<0.1)); // 3
for var i:=0 to 3 do Swap(a[i],a[7-i]); // 4
a.Println(NewLine); // вывод
end.
<u><em>Тестовое решение:</em></u>
1
0.5
0.25
0.125
0.0625
0.03125
0.015625
0.0078125
Меньших 0.1: 4
0.0078125
0.015625
0.03125
0.0625
0.125
0.25
0.5
1
Опишем условия задачи (ориентируемся на рисунок где выделены области N1, N2, N3)
N2=1000 (из условия фрегат & эсминец 1000)
N1+N2=2000 (из условия фрегат 2000)
N2+N3=2500 (из условия эсминец 2500)
Запрос фрегат | эсминец можно описать как
N1+N2+N3
Выражаем из уравнений выше каждую из N
N2=1000
N1=2000-N2=2000-1000=1000
N3=2500-N2=2500-1000=1500
Получаем:
N1+N2+N3=1000+1000+1500=3500