100*60*80=480000 байт (1 книга в байтах)
480000:1024=468.75кБайт (1 книга в кбайтах)
650*1024=665600кБайт (Объем диска в кбайтах)
665600:468.75=1419.94
Ответ: всего можно хранить 1419 книг (для 1420 не хватает места)
60*40=2400 байт
место выделяется кластерами, для 1.2 дискеты 512 байт
кластеров для полезной информации на 1,2 дискете (это ещё 5" древность)
2*80*15 - 2*2 -14 =2382
2382*512=1219584
1219584/2400=508,16
получается 508 страниц
Программа с while
program raf105;
var a:integer;
begin
while a<>15 do
begin
a:=a+1;
writeln(a);
end
end.
Программа с repeat
program raf105;
var a:integer;
begin
repeat
a:=a+1;
writeln(a);
until a=15;
end.
<em>Написано на языке PascalABC.NET</em>
вес одного символа не написали.
если кодировка ASCII 1 байт
если кодировка UNICODE 2 байта
1 мб = 1024 кб
1кб = 1024 байта
1 мб = 1024*1024=1048576 байт
1 страница 60*65 = 3900 байт
1048576/3900 = 268.86 страниц для кодировки ASCII или 268.86/2=134.43 в UNICODE
Ответ: 268 страниц в ASCII или 134 страницы в Unicode