Книга содержит 146 страниц. На каждой странице 39 строк. В каждой строке 59 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется одним байтом.
Const n=7; Day:array[1..7] of string[15] = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье'); var T:array[1..7] of integer; D: array[1..7] of real; i,k:byte; s:integer; SR:real; begin S:=0; randomize; Writeln('Температура в течение недели:'); for i:=1 to n do begin T[i]:=random(50)-25; S:=S+T[i]; write(T[i]:4); end; writeln; SR:=S/n; writeln('Средняя температура: ',SR:3:2); k:=0; Writeln('Температуры ниже средней в дни : '); for i:=1 to n do if T[i]<SR then begin write(Day[i]:15); k:=k+1; end; writeln; writeln('Всего ',K,' дня(ей)'); writeln('Массив отклонений:'); for i:=1 to n do begin D[i]:=T[i]-SR; write(d[i]:8:3); end; end.
59*39=2301*146=335946 (Байт)
Объяснение: