Предмет: Информатика,
автор: stanislav2002ap
Помогите пожалуйста!!!
Надо написать программу
Приложения:
Ответы
Автор ответа:
1
var x,y: real;
begin
readln(x);
if x<0 then y:=2*sqr(x)-12*x else
if x>0 then y:=sqr(cos(x));
writeln(y);
end.
begin
readln(x);
if x<0 then y:=2*sqr(x)-12*x else
if x>0 then y:=sqr(cos(x));
writeln(y);
end.
Похожие вопросы
Предмет: Информатика,
автор: pokaschool
Предмет: История,
автор: Soyshinkanon
Предмет: Астрономия,
автор: elena171978ak
Предмет: Математика,
автор: 4rkfccytantrfvcr
Предмет: История,
автор: chelkarik