Люди ! можете с программами abc pascal. если они будут правильными , будит и вознаграждение.

Текст: Напечатать в виде таблицы значения функции y=7x^3+2/3x+Корень x-4 , для значений x изменяющегося от 5 до b с шагом 5.
Итак, начнём. Пень знает что это за сомнительное б, ну да ладно. Я думаю - это число произвольное.
Var 
x,b:integer;
begin
x:=5;
b:=300;
writeln('|     x      |       y(x)      |');
while x<=b do
begin 
writeln('||');
writeln('|  ',x,'     |','  ', (7*(x*x*x)+2)/(3*x+sqrt(x-4)), '   |');
x:=x+5;
end;
writeln('||');
end.
Это первая задача.

Третья задача. Я не знал, что там за икс, и откуда он берётся, так что сделал так что пользователь вводит икс самостоятельно.
a=ln(x^3-2|*1/tgx)

var
a,x:real;
begin
Writeln('Введите число x');
Readln(x);
if x<=2 then writeln('Значение x не подходит, значениe "а" присваивается ноль.')
else
a:=(sqrt(sqr(ln(x*x*x-2)))*(1/(sin(x)/cos(x;
writeln('a=',a);
end.

var   s : string[50];
  i, j, k : word;  
 f : boolean;  
function isSpace(ch : char) : boolean;
begin   isSpace := false;  
if ch = ' ' then isSpace := true;
end;  
begin   f := false;  
   repeat     j := 0;
    writeln('введите строку, состоящую из 2 слов');
    readln(s);    
for i := 1 to length(s) do    
   if isSpace(s[i]) then  
    begin    
     inc(j);      
   k := i;       end;
     if j =1 then f := true;
    until f;    
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); 
end.
недавно такую писала :)

Задание 1
Информационный объем I = 44100 Гц * 5 * 60 с * 16 бит = 211680000 бит = 26460000 байт = 25839,84375 Кбайт = 25,23422241210938 Мбайт

Задание 2
I = 1,3 Мбайт t = 1 мин Частота дискретизации v = 1,3 * 1024 * 1024 * 8 бит / 60 с / 8 бит = 22719,147 Гц

Задание 3
I = 5.1 Мбайт, t = 2 минуты, v = 22050 Гц Разрядность аудиоадаптера i = 5.1 * 1024 * 1024 * 8 бит / (2 * 60) с / 22050 Гц = 16,1685 бит (округленно 16 бит)

Задание 4
I = 0.01 Гбайт, i = 16 бит, v = 44100 Гц Время t = 0,01 * 1024 * 1024 * 1024 * 8 бит / 16 бит / 44100 Гц = 121 с (округляем до 120 с)