а если только паскальчик? или тебе и то, и то желательно?
только Паскаль
ща попробую

Ответы и объяснения

2013-12-25T21:10:13+04:00
Uses crt;
var x,y: real;
begin
 clrscr;
readln (x);
if (x<=-17) then
y:=8*x+17;
if (x>5) then
y:=sin(5*x)
else
y:=x/5;
writeln (y);r
eadln ();
end.
отметишь как лучший? проверил, работает