256=2⁸, поэтому каждый символ кодируется 8 битами, строка занимает 10×8=80 бит, страница - 40×80 = 3200 бит, две страницы - 2×3200=6400 бит
4) 3 путя так как доступно БВД
1. Начало
2. Ввод числа a
3. a>0
4. налево a=a+1 , направо a<0 ( налево a=a-2, направо a=10)
5. Вывод а
6. Конец
Можно чуток оптимизировать, чтобы красивее смотрелось
Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10