<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-56,26); a.Println
end.
<u>Пример</u>
n= 13
10 19 20 0 2 14 -16 -48 0 7 -51 19 -22
<em>Ограничение на размер массива (n) - только здравый смысл.</em>
Кратко и понятно.
```code
var x, a, n, k: integer;
begin
write('Введите x = '); readln(x);
write('Введите начальный множ. n = '); readln(n);
write('Введите конченый множ. k = '); readln(k);
for a := n to k do writeln(x,' * ', a, ' = ', (a * x));
end.
```
60.Жесткий диск 61.Диск 62 .память этого человека
Переводим 3,5 КБ в биты,учитывая,что один знак=8битам
3,5 КБ=286720бит
Теперь делим данное число на кол-во знаков по битам
Получаем 286720/8=35 840 Байт(знаков)
Следует учитывать,что это решение верно,для кодировки КОИ-8
ОТВЕТ:35 840 знаков