Есть способ поизящнее, но можно и так:
program test;
uses crt;
var
arr:array[1..100] of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
arr[i]:=random(100);
write(i,': ');
writeln(arr[i]);
end;
writeln;
i:=2;
while(i<100)do
begin
write(i,': ');
writeln(arr[i],' ');
i:=i*2;
end;
readln;
end
36 Кбайт
1)24/80=0.3
2)0.3*120=36
Ответ:36 Кбайт
Порядок переливания краски ( по шагово ) :
шаг перелива - 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8
ведро (12 л) - 12 4 4 9 9 1 1 6
банка (5 л) - 0 0 5 0 3 3 5 0
ведро (8 л) - 0 8 3 3 0 8 6 6
1.
b=9%5=4
b=b*10=4*10=40
a=b//5-3=40/8-3=5-3=2
2.
b=a//10=167//10=16
b=b/4+2=16/4+2=4+2=6
a=b*25+2=25*6+2=150+2=152
a=a+b=152+6=158
3.
b=a//100+a%100=841//100+841%100=8+41=49
a=a//10=841//10=84
a=a%10=84%10=4
a=a+b=4+49=53
4.
a=a//b=344//8=172//4=86//2=43
b=a%b=43%8=3
5.
b=a+b=20+18=38
a=b-a=38-20=18
b=b+a=18+38=56
<u><em>Полезная инфа.</em></u>
<em>// - </em><em>деление нацело.</em>
<em>% - остаток от деления нацело.</em>
<em>**-возведение в степень.</em>
<em>*,-,+,/ - обычные арифметические действия.</em>