Паскаль Помогите срочно! Опции

[Наталька]

Помогите пожалуста почему это не работает????

y=sqrt (x+1)2 (3-x)в 4 степени


Program algor;
uses
Crt;
var
x,a2:word;
a1,y:integer;
begin
clrscr;
writeln('введите');
write('X= ');
readln(x);
a1:=sqr(x+1);
a2:=Exp(4*ln(3-x));
y:=sqrt(a1*a2);
write('y= ');
readln;
end.

Сообщение отредактировано: Наталька - 24.06.2009 0:25

[Client]

Поменяй типы на real

[sheka]

во-первых, ехр дает не целый результат, а во вторых sqrt - тоже.
сделай лучше все переменные real.

[Наталька]

Спасибо ОГРОМНОЕ!!!все получилось))