Предмет: Информатика,
автор: 111111DA
Программа Pascal
Очень нужна помощь!!!
Приложения:
Ответы
Автор ответа:
0
var x,y:real;
BEGIN
readln(x);
if (x<=0) then
y:=-2*sqr(x)+x+1 else
y:=-2*sqr(x)+3;
writeln(y);
end.
Интересные вопросы
Предмет: Информатика,
автор: 0701nastia2008
Предмет: Математика,
автор: bagirablek12061969
Предмет: Алгебра,
автор: nurbekovaajkanys7
Предмет: Алгебра,
автор: linka2805
Предмет: Геометрия,
автор: mityafarmuga