турбо паскаль

[lelka]

помогите пожалуйста с решением задач.
заранее спасибо.

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=94683
Задания нераз обсуждались на форуме.

[ROMA2PVT]

Uses
   CRT;
var
  x,y,k:real;
begin
     Clrscr;
     write('Введите X: ');
     readln(x);
     writeln('Вычисляем функцию Y при введённом X: ');
      y:=sqr(x)+1.8;
      if y<10 then k:=sin(y) {если y<10 то вычисляем по формуле k:=sin(y)}
         else {иначе если y>20 то по формуле k:=(sin(y)/cos(y))}
           if y>20 then k:=(sin(y)/cos(y))
             else {во всех остальных случаях по формуле k:=y+7.5}
               k:=y+7.5;
writeln('X:=',x:1:4,'; Y:=',y:1:4,'; K:= ',k:1:4);
readkey;
end.

Автор как трудно немного подумать.Правда.Вторая по аналогии.

[Svetlichok]

Помогите с задачами на Паскале, ооочень надо! За вознаграждение !!!!!Svetusiaia@mail.ru