Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить rкубами, если a>b>c, то смените знак каждого числа, в противном случае каждое число заменить наибольшим и них.

Question

Информатика

Ноябрина

22 марта, 05:55

Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить rкубами, если a>b>c, то смените знак каждого числа, в противном случае каждое число заменить наибольшим и них.

+2

Ответы (1)

Знаете ответ на вопрос?

Талюша · Answer 1

program chisla;

var a, b, c:real;

begin

write ('Введите числа a, b и с через пробел:') ; readln (a, b, c) ;

if (a<=b) and (b<=c) then begin

a:=exp (ln (a) * 3) ;

b:=exp (ln (b) * 3) ;

c:=exp (ln (c) * 3) ;

end;

if (a>b) and (b>c) then begin

a:=-a;

b:=-b;

c:=-c;

end;

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

end.

;)