95 БАЛЛОВНаписать программу(pascal ) program ... var ...

Question

95 БАЛЛОВ
Написать программу(pascal )
program ...
var ...

---

Answer 1

Program m1;var f,x:real;begin  writeln('Введите x');  readln(x);  if(x<=0)then    f:=0  else if((x>0)and(x<=1)) then    f:=(x*x)-x  else if (x>1) then    f:=(x*x)-sin(3.14*(x*x));  writeln('f(x)= ', f:2:2);end.

Comments

program m1;
var f,x:real;
begin
writeln('Введите x');
readln(x);
if(x<=0)then<br> f:=0
else if((x>0)and(x<=1)) then<br> f:=(x*x)-x
else if (x>1) then
f:=(x*x)-sin(3.14*(x*x));
writeln('f(x)= ', f:2:2);
end.

---

Pasib chelik , lychij