614400 килобайт, надо просто кол-во символов умножить на кол-во строк, а потом полученный ответ надо умножить на кол-во страниц
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger).ToString.Select(x->x.ToDigit).Sum);
end.
1. Программа суммирует числа от 1 до 10, следовательно в ответе будет сумма: 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = 55.
1.1.
<em>var k,s:integer;</em>
<em>begin</em>
<em>s:=0;</em>
<em>k:=1;</em>
<em>repeat
</em>
<em>s:=s+k;</em>
<em>k:=K+1;</em>
<em>until k >10;
</em>
<em>write(s);</em>
<em>end.</em>
<em>2. в первом цикле
</em>
for n:=1 to 100 do
A[n]:=n-10;
<em>вычисляются элементы массива А по формуле</em> A[n]:=n-10<em>, первые 10 из них будут отрицательные.
</em>
во втором цикле
for n:=1 to 100 do
B[n]:=A[n]*n;
<em>вычисляются элементы массива В по формуле </em>B[n]:=A[n]*n, а т.к. первые 10 элементов массива А отрицательные числа, то и 10 первых элементов массива В будут отрицательными, а т.к. в массиве В 100 элементов, то положительных будет 90.
<em>
</em>