Так, для начала узнаем сколько всего символов в тексте, для этого перемножаем количество страниц, количество строк и символов в строке 150*35*50 = 262500 (общее количество символов), потом переводим скорость в байты 19200/8=2400. И делим 262500 на 2400 и получаем 109,375, так как ответ нужен целым числом, округляем и получаем 110. Надеюсь помог)
{конструкция else для того если будут введены отрицательные x y}
var
x,y:real;begin
readln(x,y);
if (x*x*x*x*x+y)>0 then
writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x)))
else
writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x)));
<span>end.</span>
Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>
33*40*64*8бит на символ = скоко аа
вес в битах
(кои-8 ето 8 бит на символ не 8символнасимвол)
var a,b,c,d:integer;
begin
read(d);
a:=d div 100;
b:= (d div 10) mod 10 ;
c:=d mod 10;
if (a+b+c) >15 then
writeln('YES')
else
writeln('NO');
readln;
end.