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

Question

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

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.
вроде так думаю отметь лучшим если сможешь