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

Question

Информатика

Муня

28 июля, 07:08

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

+5

Ответы (1)

Знаете ответ на вопрос?

Желика · Answer 1

Var A, B, P:real;

Begin

Write ('A = ') ;

ReadLn (A) ;

Write ('B = ') ;

ReadLn (B) ;

P:=A*B;

if P<0 then P:=P*P

else A:=A*5;

WriteLn ('A = ', A) ;

WriteLn ('B = ', B) ;

WriteLn ('P = ', P) ;

End.