If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
Log2(16) = 4 бит
log2(2) = 1 бит
4/1 = 4 раза
21 кбайт * 4 раза = 84 кбайт был размер у того
Думаю так
<span>var i, n: integer; s: real;
begin write('S N? '); readln(s, n); for i:=1 to n do s:=s*1.02; writeln(s:0:2); readln end.</span>
А проще без цикла:
<span>var n: integer; s: real;
begin write('S N? '); readln(s, n); writeln(s*exp(n*ln(1.02)):0:2); readln end.</span>
А на русском языке программы не составляют. Pascal, C, C++
1. 3
2. 2,4,5
3. хз) Навернное, 1,3,2,5,4, но не уверен.
4. 1б, 2а, 3в
5. 2
6. 3
7. хз, скорее всего 2
8. 3, странный вопрос)
9. 3
10. 2
11. 2
12. 1 или 3, хз
13. 3
14. 3
15. 2
Это то что ты изучаешь, ответ: криптография