• ввести с клавиатуры 3 числа ввес и максимальное и минимальное значение

Ответы 2

  • procedure swap(var a, b: real);var  c: real;begin    c := b;    b := a;    a := c;end;var  a, b, c, d: real;begin  readln(a, b, c);  if (a < b) then    swap(a, b);  if (b < c) then    swap(b, c);  if (a < b) then    swap(a, b);  writeln('min = ', c, #13, 'max = ', a);end.
  • var  a,b,c,max,min:real;beginreadln(a);max:=a;min:=a;readln(b);if b<min then min:=b;if b>max then max:=b;readln(c);if c<min then min:=c;if c>max then max:=c;writeln('min=',min,' max=',max)end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years