Документ состоит из текстовой и графической информации. текст состоит из 30 строк по 40 символов на каждой. вес одного символа 2 байта. размер черно-белого изображение 120×150. определить размер документа?
30*40=1200 символов в тексте 1200*2= 2400 Байта - занимает текст 120*150=18000 точек держит изображение так как изображение черно-белое, то на кодирование каждой точки требуется 1 бит, следовательно объем изображения = 18000 бит = 2250 байт 2400+2250 = 4650 байта = 4,541015625 Кб
Var i:integer; t:array[1..3,0..31]of real; begin write('Введите температуру в декабре по дням: '); for i:=1 to 31 do begin readln(t[1,i]); t[1,0]:=t[1,0]+t[1,i]; end; t[1,0]:=t[1,0]/31; write('Введите температуру в январе по дням: '); for i:=1 to 31 do begin readln(t[2,i]); t[2,0]:=t[2,0]+t[2,i]; end; t[2,0]:=t[2,0]/31; write('Введите температуру в феврале по дням: '); for i:=1 to 28 do begin readln(t[3,i]); t[3,0]:=t[3,0]+t[3,i]; end; t[3,0]:=t[3,0]/28; writeln('Средняя температура в декабре: ',t[1,0]); writeln('Средняя температура в январе: ',t[2,0]); writeln('Средняя температура в феврале: ',t[3,0]); writeln('Средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3); end.
Program N_1; //Название программы Var a,b,c:integer; //Переменные BEGIN Writeln('Введите длину и ширину прямоугольника'); //Вывести данную строку readln(a,b); //Считать a и b if a<b //Если a<b then begin //то найти периметр c:=(a+b)*2; Writeln('Пириметр= ',c) //и вывести его end else begin //Если a>b c:=a*b; //то найти площадь writeln('Площадь= ',c) //и вывести ее. end; END.
1200*2= 2400 Байта - занимает текст
120*150=18000 точек держит изображение
так как изображение черно-белое, то на кодирование каждой точки требуется 1 бит, следовательно объем изображения = 18000 бит = 2250 байт
2400+2250 = 4650 байта = 4,541015625 Кб