Для хранения текста требуется 72000 бит. Сколько страниц займёт этот текст, если на странице размещается 25 строк по 60 символов в строке? Вес каждого символа компьютерного алфавита равен 16 бит
var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
72000/16=4500(букв)
25*60=1500(букв)
4500/1500=3(страницы)
Объяснение: