Паскаль. Не знаю как решить :(

[Lksen]

Дело такое: завтра мне надо сдавать работы, а я не знаю как делать эти задачи...

Если кто сможет мне исходник дать - будьте добры, дайте, а то вылететь как то...

Часть мне уже известна как решается, а вот некоторые части не могу никак...

Вот эту решил

var b,x,u,f:real;
Begin
write('Введите значение a:');
readln(a);
write('Введите значение b:');
readln(;
write('Введите значение x:');
readln(x);
U:=((a*a)*x+exp(-x*ln(e)*cps*b*x))/((b*x-exp(-x*ln(e)*cos*b*x+1));
f:=exp(2*x*ln(e)*ln(a+x)-exp(3*x*ln(*ln(b-x);
writeln ('U=',U:5:3,' f=',f:5:3);
readln;
End.

program pr1;

Здесь формулы нужно вставить

var z,a:real;
i,n:integer;
Begin
writeln('Введите а,n:');
readln(a,n);
\\Здесь формулы//
writeln('i=,.i,' z=',z:5:3);
end;
readln;
end.

program pr2;

Остальные только догадки и элементарные части.

[Гость bot]

Топик был перенесен из форума Взаимопомощь в форум Образование

VR

[Knight]

Задали-то вчера, небось?

[Lksen]

Задали давно, просто я мудак ничего не делал всё это время...

[sodrug]

могу тел подсказать марина 89246573331 препод матем. если тел не изменился 500 руб возьмет