Создание программ на PASCAL домашняя контрольная*(

[BBC25]

Сказали,что всё просто,но я сервисник,и в принципе не понимаю программирование,отблагодарю материально,укажите свой веб мани,ну опять-таки прощу прощения,больше сотни бедный студент дать не может Заранее спасибо!Если всё намного сложней назовите за сколько в принципе можно написать эти программы...Я понимаю тема противоречит основам сайта,но я не знаю других людей которые могут помочь мне((

[vovk]

program number_1;
uses crt;
const
pi_=3.14;
var
z,x,y :real;
begin
writeln('vvedite x');
readln(x);
clrscr;
writeln('vvedite y');
readln(y);
z:=(2*x+5-cos(y))/(5.7+pi_);

writeln('z = ',z);
readln

end.

program number_2;
uses crt;
var
c,x,y :real;
begin
writeln('vvedite x');
readln(x);
clrscr;
writeln('vvedite y');
readln(y);
if y>2.8 then
c:=2*x+sin(y+5) else
c:=sin(y+x)- exp(ln(x)*y); {(2*x+5-cos(y))/(5.7+pi_); }

writeln('c = ',c);
readln

end.

с последней чтото не понял последовательности b и в формуле это 45*x ?

[BBC25]

Спасибо огромное,Вы мне сильно помогли!!!!

[BBC25]

Всё сделал,огромное Вам Благодарум