Написать программу нахождения суммы большего и меньшего из чисел a, b, c.

Question

Информатика

Леонилла

21 февраля, 10:58

Написать программу нахождения суммы большего и меньшего из чисел a, b, c.

+3

Ответы (1)

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

Сереня · Answer 1

всего три числа?

решу с рандомным заполнением ...

на паскале:

...

var

a, b, c:integer;

min, max:integer;

begin clrscr;

a:=random (10) + 0;

b:=random (10) + 0;

c:=random (10) + 0;

if (a
min:=a

else

if (c
min:=c

else

min:=b;

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

max:=a

else

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

max:=c

else

max:=b;

writeln ('Максимальное: ', max) ;

writeln ('Минимальное: ', min) ;

readkey;

end.