Нужна помощь по программированию)

flam · 09.06.2013

envoy922 said: ↑

там 8 должно было быть. а что тебя смущает? в школе радианы не проходили?

var x,y: real;
begin
readln(x);
if (x>0) and (x<>8) then y:=1-3*x
else if (x<-1) then y:=x*x-sin(x)
else y:=cos(x);
writeln(y);
readln;
end.
Click to expand...

ок получилось) а что после вводить внизу?

flam · 09.06.2013

тут не получается, я когда ввожу водится только два числа, без третьего

envoy922 · 09.06.2013

flam said: ↑

тут не получается, я когда ввожу водится только два числа, без третьего
Click to expand...

вводить одно число

три раза запусти для каждого числа
ввод в конце программы убери, не пригодится. (readln;)

flam · 09.06.2013

envoy922 said: ↑

вводить одно число

три раза запусти для каждого числа
ввод в конце программы убери, не пригодится. (readln;)
Click to expand...

спс