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

Question

Информатика

Зинаида

10 февраля, 16:02

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

+3

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