Требовалось написать программку при исполненьи которой с клавиатуры считывается натуральное

Требовалось написать программу при исполнении которой с клавиатуры считывается естественное число N, не превосходящее 10^9 и выводится наибольшая цифра этого числа.
var N: longint;
digit, maxdigit: integer;
begin
readln(N);
maxdigit := 10;
while N gt; 10 do
begin
digit := N mod 10;
if digit gt; maxdigit then
maxdigit := digit;
N := N div 10;
end;
writeln(digit);
end.
Последовательно сделайте последующее.
1. Напишите что выведет это программка при вводе числа 321.
2. Найдите все оплошности в этой программке (их может быть одна либо несколько). Для каждой оплошности:
1) выпишите строчку, в которой сделана ошибка;
2) укажите, как поправить ошибку, - приведите верный вариант строчки.

Задать свой вопрос
1 ответ
1) Выводит 2
2)
var
    N: longint;
    digit, maxdigit: integer;

begin
    readln(N);
    maxdigit := 10; // необходимо присваивать 0
    while N gt; 10 do // нужно написать N gt; 0
    begin
        digit := N mod 10;
        if digit gt; maxdigit then
            maxdigit := digit;
        N := N div 10;
    end;
    writeln(digit); // нужно вывести maxdigit
end.

Верный код

var
    N: longint;
    digit, maxdigit: integer;

begin
    readln(N);
    maxdigit := 0;
    while N gt; 0 do
    begin
        digit := N mod 10;
        if digit gt; maxdigit then
            maxdigit := digit;
        N := N div 10;
    end;
    writeln(maxdigit);
end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт