• Дана программа ее надо изменить так чтобы с ее помощью можно было найти разность максимального и минимального из четырех чисел
    Программа
    Program n_7;
    var a,b,c,d:integer;
    function max (x,y;integer):integer;
    begin
    if x>y then max:=x else max:=y;
    end;
    begin
    readln (a,b,c,d);
    f:=max(max(a,b),max(c,d));
    writeln ('f='f);
    end.

Ответы 1

  • Program n_7;var a,b,c,d,max,min:integer;function f(x,y,c,d:integer):integer;beginif (x>y) and (x>c) and (x>d) then begin max:=x; endelse if (y>c) and (x>d) then begin max:=y; endelse if (c>d) then begin max:=c; endelse begin max:=d; end;if (x<y) and (x<c) and (x<d) then begin min:=x; endelse if (y<c) and (x<d) then begin min:=y; endelse if (c<d) then begin min:=c; endelse begin min:=d; end;writeln('max=',max,'; min=',min,' pa3HocTb=',max/min,' B pa3ax');end;begin readln (a,b,c,d);f(a,b,c,d);readln;end.
    answer img
    • Автор:

      haley35
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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