Ответы 1
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('a=');
var y:real;
if a<0 then y:=-a else y:=-a*a;
Writeln('f(a)=',y)
end.
Примеры
a= 3.7
f(a)=-13.69
a= -1.15
f(a)=1.15
begin
var a:=ReadReal('a=');
var y:real;
if a<-1 then y:=1/Sqr(a)
else if a<2 then y:=a*a
else y:=4;
Writeln('f(a)=',y)
end.
Примеры
a= -2
f(a)=0.25
a= 0.7
f(a)=0.49
a= 3.14
f(a)=4
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('a=');
var y:real;
if a<0 then y:=-a else y:=-a*a;
Writeln('f(a)=',y)
end.
Примеры
a= 3.7
f(a)=-13.69
a= -1.15
f(a)=1.15
begin
var a:=ReadReal('a=');
var y:real;
if a<-1 then y:=1/Sqr(a)
else if a<2 then y:=a*a
else y:=4;
Writeln('f(a)=',y)
end.
Примеры
a= -2
f(a)=0.25
a= 0.7
f(a)=0.49
a= 3.14
f(a)=4
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?