Предмет: Информатика,
автор: AvroraMa
помогите составить и решить задачу.
Приложения:

Ответы
Автор ответа:
0
var
x,y:real;
begin
readln(x);
if x<1 then y:=(x*x)/sqrt(1-x);
if x=1 then y:=x+3;
if x>1 then y:=2*(x*x);
writeln(y);
end.
x,y:real;
begin
readln(x);
if x<1 then y:=(x*x)/sqrt(1-x);
if x=1 then y:=x+3;
if x>1 then y:=2*(x*x);
writeln(y);
end.
Похожие вопросы
Предмет: Информатика,
автор: ajratmukhin82
Предмет: Музыка,
автор: nastya94999
Предмет: Алгебра,
автор: sliza6544
Предмет: История,
автор: angelinaKotova11