Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.