Предмет: Информатика,
автор: назар170
Помогите ,это нужно сделать в Паскаль
Приложения:

Ответы
Автор ответа:
1
program n1;
var x,y: real;
begin
writeln('введите точку Х');
readln(x);
if x<0 then y:=x else
if x>=0 and x<=1 then y:=0 else
if x>1 then y:=x*x-x;
writeln('f(x)=',y);
end.
var x,y: real;
begin
writeln('введите точку Х');
readln(x);
if x<0 then y:=x else
if x>=0 and x<=1 then y:=0 else
if x>1 then y:=x*x-x;
writeln('f(x)=',y);
end.
Похожие вопросы
Предмет: Математика,
автор: makarviktorov9
Предмет: Информатика,
автор: styles23
Предмет: География,
автор: zerodaniilo
Предмет: Математика,
автор: mashaaa98
Предмет: Математика,
автор: sbezhetskikh