• На языке ПАСКАЛЬ сделать:
    Найти квадрат суммы максимального и минимального из 4 чисел.

Ответы 7

  • правильно?
  • все работает
  • спс
    • Автор:

      yang100
    • 6 лет назад
    • 0
  • Да действительно работает! Спасибо
    • Автор:

      lydon
    • 6 лет назад
    • 0
  • нез
  • var a,b,c,d,min,max: integer;beginreadln(a,b,c,d);min:=a;max:=a;if (b >= max) then max:=b;if (b <= min) then min:=b;if (c >= max) then max:=c;if (c <= min) then min:=c;if (d >= max) then max:=d;if (d <= min) then min:=d;writeln((max+min)*(max+min));end.
    • Автор:

      ezequiel
    • 6 лет назад
    • 0
  • var  a,b,c,d,min,min1,max,max1:integer;begin  Readln(a,b,c,d);  if a>b then begin max1:=a; min1:=b end  else begin max1:=b; min1:=a end;  if c>d then begin max:=c; min:=d end  else begin max:=d; min:=c end;  if max1>max then max:=max1;  if min1<min then min:=min1;  Writeln('max=',max,' min=',min)end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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