<span>первые 20 чисел в шестнадцатеричной системе счисления
</span><span><span>[16]
</span><span>
0
</span><span>
1
</span><span>
2
</span><span>
3
</span><span>
4
</span><span>
5
</span><span>
6
</span><span>
7
</span><span>
8
</span><span>
9
</span><span>
A
</span><span>
B
</span><span>
C
</span><span>
D
</span><span>
E
</span><span>
F
</span><span>
10
</span><span>
11
</span><span>
12
</span><span>
13
</span><span>
14
</span></span><span><span><span /></span></span>
program G1;
var
a:real;
begin
writeln('Сколько килограмм?');
readln(a);
a:=a*1000;
writeln('Это ',a,' грамм')
end.
На каждой итерации цикла m уменьшается на 2, и это продолжается до тех пор, пока m не станет меньше 6. Так как изначально m = 15, то потребуется пять итераций, в итоге m будет равно 15 - 2*5 = 5.
На каждой итерации n увеличивается вдвое, всего итераций 5, значит, после выполнения фрагмента алгоритма n будет равно 1 * 2^5 = 32.
Ответ. m = 5, n = 32.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.
100мбит = 12500килобайт.
0.1 / 125 = 0.00008
Ваш ответ: 0,00008.