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

Question

Информатика

Афиноген

23 декабря, 19:35

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

+4

Ответы (1)

Знаете ответ?

Анемподист · Answer 1

Var a, b, c, min, max, s: integer;

begin

write ('Ведите числo а ') ; readln (a) ;

min:=a; max:=a;

write ('Ведите числo b ') ; readln (b) ;

if b
if b>max then max:=b;

write ('Ведите числo c ') ; readln (c) ;

if c
if c>max then max:=c;

writeln ('Сумма min + max = ', min+max) ;

end.

вроде так думаю отметь лучшим если сможешь