Question

Составьте программу которая, из трёх введённых с клавиатуры чисел возводит в куб отрицательные, а положительные оставляет без изменений

Answer 1

var a,b,c: real;

begin

readln(a,b,c);

if a<0 then a:=a*a*a;

if b<0 then b:=b*b*b;

if c<0 then c:=c*c*c;

write(a,' ',b,' ',c);

end.