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

Question

Информатика

Митродора

26 мая, 16:32

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

+4

Ответы (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.