Вычислим, сколько информации хранится в книге из 60 станиц, если на каждой странице умещается 30 строк, а на каждой строке — 70 символов.(в мегабайтах)
write('введите число: '); readln(m); if (m < 1) or (m > 1000) then writeln('число не входит в заданный интервал') else if m = 1000 then writeln('одна тысяча ') else begin n := m div 100; if n > 0 then begin write(ms[n]); flag := true end; m := m mod 100; if m = 0 then writeln(' ') else begin if (m > 10) and (m < 20) then begin if flag then write(' '); writeln(m1[m]) end else if m > 0 then begin n := m mod 10; m := m div 10; if m > 0 then begin if flag then write(' ') else flag := true; Write(md[m]) end; if n <> 0 then begin if flag then write(' '); write(me[n]); end end end end end.
0,12 мб
Объяснение:
1 символ = 1 байт (8 бит)
1 строка = 70 символов
1 страница = 30 строк
В книге 60 страниц
1) 1*70*30*60 = 126000 байт
2) 126000 байт / 1024 = 123,046 кб
3) 123,046 кб / 1024 = 0,12 мб