20= 180*i(вес одного символа)
i=720/180
(количество информации в сообщении) i=4
(мощность алфавита)N=2^i
N=2^4
N=16
700Мб=716800Кб
716800Кб/128Кб=5600.
Ответ: 5600 учебников можно разместить.
Номер 9 окажется в этой же точке
Program Evklid;
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.
Да.... если судить по предыдущем решению, "в школу снова не хочу!" )))
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
Range(1,16).Select(x->Power(2,x)).ToArray.Println
end.
<u><em>Тестовое решение:</em></u>
2 4 8 16 32 64 128 256 512 1024 2048 4096 8192 16384 32768 65536
Замечание: ToArray. можно выбросить и написать
Range(1,16).Select(x->Power(2,x)).Println
- это была просто дань требованию условия зачем-то создать массив и
вывести его значения.