напишите,пожалуйста, программу:даны целые числа а,в,с если а<=b<=c то все числа заменить кубами,если a>b>c ,то сменить знак у каждого.В противном случае заменить наимешьшим из них

Есть ответ
17.12.2022
351

Ответ


Program pr;uses crt;Var a, b, c,x1,x2,x3:integer;BeginWriteln('Введите a, b, c');readln(a, b, c);if (ac) thenBegina:=a*(-1);b:=b*(-1);c:=c*(-1);Writeln(a);Writeln(b);Writeln(c);end

 

 

 

elseif (a


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.