Помогите с информатикой. Очень срочно!!!
Так мало баллов, никто не согласится делать три программы за 8 баллов. Номер 5. Program y; Var a, y, x:real; begin Writeln ('vvedite chislo x'); Readln (x); If x<-1 then y:=2*sqr(x)+4*x Else y:=sqrt(5-2*x); Writeln ('y raven',y,'!'); Readln; End.
Давай хотя бы 4 и 5
Щас 5 сделаю