Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

+ 0 -

ВсеволодЩёголев

29 июня 2013 г., 9:11:20 (10 лет назад)

uses Math;

var y,x:real;

begin

readln(x);

if x < 0 then y:=power(x,5)+1

else if ((x>=0) and (x<5)) then y:=power(x,3)-5

else 5*sqrt(x)-3;

writeln(y);

end.

2.  пишу начало ост допишите. нечего сложного.

var x:char;

begin

readln(x);

case x of 

 0 : writeln (‘ноль‘);
        'o' : writeln (‘один‘);
        'д' : writeln (‘два‘);
        'т' : writeln (‘три‘);

end;

3.

var x,y:real;

begin

if (( x < 0 ) and ( y < 0 )) then 

begin

x:=abs(x);

y:=abs(y)

else if (((x<0) and (y>0)) or ((x>0) and ( y< 0))) then

begin

x:=2*x;

y:=2*y;

end

else if ((x>0) and (y>0)) then

begin

x:=x/2;

y:=y/2;

end;

writeln(x,' ',y);

end.

end.