Таблица истинности. Ответ в последней колонке
Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
Количество символов = 150*40*60 = 360000
Если для кодирования одного символа используется 8 бит (1 байт), то объем книги = 360000*8 = 2 880 000 бит = 360 000 байт