Переведите данные высказывания на язык логики. 3.1. Дождь неожиданно начался и быстро закончился. 3.2. Обычно в 6 часов я иду гулять с собакой или смотрю телевизор. 3.3. Если завтра будет холодно, я не пойду гулять.
Каждый символ в кои-8 имеет объем информации 1 байт. всего текста 60*30 = 1800 байт на каждой странице. растровое изображение передает не более 8 = 2^3 цветов, значит, на кодировку цвета используется 3 бита. размер каждого рисунка 120*240*3 = 86400 бит = 10800 байт. а рисунков 2 на каждой странице. таким образом, каждая страница содержит 2*10800 + 1800 = 23400 байт. модем со скоростью передачи 28800 бит в сек передал документ за 5 сек. значит, он передал 28800*5 = 144000 бит = 18000 байт. но это меньше, чем находится на одной странице. вывод: у вас ошибка в условии.
В Паскале есть функция Round, которая использует следующий "стандартный" алгоритм округления: Если число положительное, то при величине его дробной части меньше 0.5, она просто отбрасывается, если больше - отбрасывается и к числу прибавляется единица. Если число отрицательное, то при абсолютной величине его дробной части меньше 0.5, она просто отбрасывается, если больше - из числа вычитается единица. А функция Trunc возвращает целую часть числа.
var p:real; begin Write('Введите число: '); Read(p); Writeln('Округленное значение: ',Round(p),', целая часть: ',Trunc(p)) end.
