Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln('Введите размер массива');
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i],' ');
Sr:=sr+m[i];
End;
Writeln;
Writeln(' Сред. Арф. = ',sr div n);
Readkey;
End.
64xбайт=256кбайт
64хбайт=256*1024=262144байт
х=262144/64
х=4096байт
х=4 кбайт
Пусть шестерок много, и все оканчивается на 3. Посмотрим, что будет дальше:
- ...666663 -> ...66664
- ...66664 -> ...6665
- ...6665 -> ...63
Итак, если шестерок было как минимум 5, то через 3 итерации цикла шестерок станет на 4 меньше, после этого, если шестерок будет по-прежнему не меньше 5, процесс продолжится.
Сначала было 115 шестерок. Через 3 * 28 итераций цикла шестерок останется 115 - 4 * 28 = 3, то есть получится строка 36663. Продолжаем выполнять для неё алгоритм:
85. 36663 -> 3664
86. 3664 -> 365
Всё, дальше в строке не осталось ни 63, ни 664, ни 6665, так что цикл завершает работу.
Ответ: 365.
Вроде так:
1) ГБВА
2) ДВАЕГБЖ
Посмотрите объяснение на рис. (Ответ 2)