Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дано действительное число X. Составьте программу для вычисления значения функции, если F ( X ) = 2 × X2 + 5 , при X>0.
F ( X ) = 7×X2-5, в противном случае

Ответ оставил Гость

Var x,y:integer;
begin;
readln(x);
if x>0 then
begin;
y:=2*sqr(x)+5;
write(y);
end
else
begin;
y:=7*sqr(x)-5;
write(y);
end;
end.