Составить программу в паскале
Даны три числа. Возвести в квадрат те из них, значения которых не отрицательны, а в третью степень отрицательные
Даны три числа. Возвести в квадрат те из них, значения которых не отрицательны, а в третью степень отрицательные
More Questions From This User See All
Answers & Comments
var
a, b, c: Int64;
begin
Write('a = ');
Read(a);
Write('b = ');
Read(b);
Write('c = ');
Read(c);
if (a >= 0) then
WriteLn(a * a)
else
WriteLn(a * a * a);
if (b >= 0) then
WriteLn(b * b)
else
WriteLn(b * b * b);
if (c >= 0) then
WriteLn(c * c)
else
WriteLn(c * c * c);
end.