Задать вопрос Регистрация
Помочь другим

  • дано натуральное число. найти максимальную цифру.

    в паскале.


    через while..

Ответы 1

  • var n,k:integer;

    begin

    readln(n);

    k:=n mod 10;

    while n>0 do begin

          n:=n div 10;

          if k<(n mod 10) then k:=n mod 10;

          if k=9 then break;

    end;

    writeln(k);

    end.

    • Автор:

      dutches
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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