Даны два числа если произведение чисел отрицательно то его нужно возвести полученное произведение в квадрат в противном случае первое число умножить на 5
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
begin
var a,b:real; Read(a,b);
Writeln(a*b<0?sqr(a*b):a+5)
end.
begin
var a,b:real; Read(a,b);
Writeln(a*b<0?sqr(a*b):a+5)
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
9 лет назад