• Дано целое число, состоящее из разных цифр. Определить, какая из цифр заданного числа больше, т. е. найти наибольшую цифру числа.
    ЧЕРЕЗ ПАСКАЛЬ!!!!

Ответы 1

  • var num, Mnum:integer;beginMnum := 0;readln(num);while num <> 0 dobeginif abs(num mod 10) > Mnun thenMnum := abs(num mod 10);num := num div 10;end;writeln(Mnum);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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