Помогите пожалуйста!! СРОЧНО!
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвёртую степень – отрицательные.
Нужно написать для Basic!
Ответы
Ответ дал:
0
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.
Вроде так затестируй на паскале у меня нет но суть такова вроде должна работать
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад