• Даны три числа . найти большее из них и изменить его знак на противоположный

Ответы 1

  • var   a,b,c,max: integer;begin  write ('введите а,b,c через пробел: ');  readln (a,b,c);  if a>b     then      if a>c         then begin max:=a; a:=-a end        else begin max:=c; c:=-c end    else      if b>c         then begin max:=b; b:=-b end        else begin max:=c; c:=-c end;        writeln;  writeln ('max = ',max);  writeln ('a = ',a,', b = ',b,', c = ',c);end.---------------------------------------------Пример:введите а,b,c через пробел: -5 -2 -4max = -2a = -5, b = 2, c = -4
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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