begin
var str:=ReadString('Введите строку').Length.Print
end.
Var
i : longint;
begin
for i:=100 downto 10 do writeln(i);
<span>end;</span>
Все проверялось с помощью программы(код ниже):
3 16
8 13
13 10
11 14
16 11
______
9 5
7 9
12 6
10 10
15 7
13 11
11 15
16 12
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var x:= ;
var y:= ;
Println(x,y);
while x<16 do
begin
if x>y then begin x:=x-2; y:=y+4; end else begin x:=x+5; y:=y-3; end;
Println(x,y);
end;
end.
1) 32*128*8=32786 символов на 8 страницах
N=2^i ; 16 = 2^4 ; i = 4 бита
<span>32768*4=131072 бита
теперь переводим в кбайт
</span>131072/8 = 16384 байт/1024 = 16кБ.