• ПОЖАЛУЙСТА ПОМОГИТЕ!! СРОЧНО!! Даны 3 числа a,b,c если они не равны то замените все чилса наибольшим из них и выведите результат на экран иначе найдите и вывидите сумму квадратов этих чисел

Ответы 1

  • Var a,b,c:integer;BeginRead(a,b,c);if (a<>b)and(b<>c)and(c<>a) then   Begin   if a<b then a:=b;   if a<c then a:=c;   b:=a;   c:=a;   Write(a,' ',b,' ',c)   Endelse Write(a*a+b*b+c*c)End.
    • Автор:

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

Войти через Google

или

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

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

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