Даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны, и в четвёртую степень – отрицательные. нужно написать для basic!

snegirnasta543876 snegirnasta543876    1   20.05.2019 11:50    4

Ответы
Vitos325 Vitos325  13.06.2020 21:19

var a,b,c:integer;

begin

 read(a,b,c);

if a<0

then a:=a*a*a*a

else a:=a*a;

if b<0

then b:=b*b*b*b

else b:=b*b;

if c<0

then c:=c*c*c*c

else c:=c*c;

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

end.

Вроде так затестируй на паскале у меня нет но суть такова вроде должна работать

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика