a, b = list(map(float, input().split()))
d = (b - 2 * a + b ** 2) / (4 * (b + a))
print(d)
Для кодирования использовалась восьмибитная кодировка, значит на один символ приходится 1 байт памяти.
Количество символов равно 256*40*60
Каждый символ равен 1 байту, значит объем текста в байтах равен количеству символов.
Переведём объем в килобайты:
(256*40*60) / 1024 = (2^8*40*60) / 2^10 = 2^(-2)*40*60 = 600 Кбайт
<span>P.S.: Сильно хотел написать ответ во¬т т¬ак, чт¬о б¬ы н¬ел¬ьз¬я б¬ыл¬о п¬ро¬чи¬тат¬ь, но Alviko не оценит:(</span>
Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>
Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00