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

Question

Информатика

Лера

27 ноября, 06:24

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

+1

Ответы (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.