• Вопрос по информатике:

    Найти максимальную цифру натурального числа N. паскаль
    Input
    Со стандартного устройства ввода вводится 1 натуральное число, не превосходящее
    2000000000.
    Output
    Нужно выдать на стандартное устройство вывода 1 цифру – наибольшую в данном
    числе.

    Sample Input Sample Output

    375859 9
    123856387 8

    • Автор:

      tommy23
  • Не знаю, у меня работает как надо

    • Отвечал:

      sydneyjxyy
    • 0
    в паскале выводить правильно на сайте на 1 -1 на 2 выводе -8

    • Отвечал:

      emilieorozco
    • 0
    Не знаю в чем проблема

    • Отвечал:

      nitrozmqw
    • 0
    ну помогите

    • Отвечал:

      mittenspt2o
    • 0
    Проверил на Primat'е, работает как надо

    • Отвечал:

      rubyzgoq
    • 0

    Ответ:

    var n,max,l: integer;

    begin  

    readln(n);

    max := -1000;

    while n <> 0 do

    begin

    l:= n mod 10;

    if l > max then

    max := l;

    n := n div 10;

    end;

    writeln(max);

    end.

    Объяснение:

    • Отвечал:

      marysavage
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска