Даны два числа если творение чисел негативно то его необходимо возвести

Даны два числа если произведение чисел негативно то его нужно возвести приобретенное произведение в квадрат в неприятном случае первое число помножить на 5

Задать свой вопрос
2 ответа
Var A,B,P:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
P:=A*B;
if Plt;0 then P:=P*P
else A:=A*5;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('P = ',P);
End.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

begin
  var a,b:real; Read(a,b);
  Writeln(a*blt;0?sqr(a*b):a+5)
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт