помогите ПАСКАЛЬзадача 54 а и б

Помогите
ПАСКАЛЬ
задача 54 а и б

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadReal('a=');
  var y:real;
  if alt;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 alt;-1 then y:=1/Sqr(a)
  else if alt;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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт