Var
N:integer;
A,max,min:real;
Begin
Write('N = ');ReadLn(N);
WriteLn('Введите числа');
Read(A);
max:=A;
min:=A;
For N:= 2 to N do
Begin
Read(A);
if A>max then max:=A;
if A<min then min:=A;
End;
WriteLn('Max = ',max);
WriteLn('Min = ',min);
End.
A) 458552 Бита = 57319 Байта = 56 Кб
б) 100 Гб = 102 400 Мб
в) 250 Мб = 256 000 Кб
г) 1248576 Байт = 1219 Кб = 1 Мб
Сначала подсчитать сколько символов на одной странице
25*80=2000 символов на странице
Теперь можно узнать объём текстовой информации умножив кол-во символов на информационный объём одного символа в Unicode (16 бит)
2000*16=32000 Бит объём текстовой информации на странице
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.