Program calculator;
Var a,c: real;
b: char;
Begin
Write('Введите первое число: ');
readln (a);
Write('Введите знак. ( + - сложение, - - вычитание, / - деление, * - умножение): ');
readln (b);
Write('Введите второе число: ');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*': a:=a*c;
'/': a:=a/c;
end;
Write ('Результат: ',a);
End.
Поскольку размер файла 128 Мб больше чем 32 Мб в 4 раза, то и время его передачи будет больше в 4 раза, составляя 8*4=<u>32 с.</u>
I1 = 5 бит / 1 символ
i2 = 6 бит / 1 символ
6/5 = 1,2 раза.
В 1.2 раза различаются инф. объемы текстов.