Question

Даны три числа a,b,c если соблюдается условие a<=b<=c то все числа заменить наименьшим из них в противном случае сменить знак каждого числа pascal

Answer 1

Ответ:

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

uses crt;

var a,b,c:integer;

begin

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

readln(a,b,c);

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

begin

a:=a*a;

b:=b*b;

c:=c*c;

end

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

begin

if a<b then a:=b;

if a<c then a:=c;

b:=a; c:=a;

end

else

begin

a:=a*(-1);

b:=b*(-1);

c:=c*(-1)

end;

writeln(a:4, b:4, c:4);

end.

1

Объяснение: