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

1) Выводит 2
2)
var
    N: longint;
    digit, maxdigit: integer;

begin
    readln(N);
    maxdigit := 10; // нужно присваивать 0
    while N > 10 do // нужно написать N > 0
    begin
        digit := N mod 10;
        if digit > 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 > 0 do
    begin
        digit := N mod 10;
        if digit > maxdigit then
            maxdigit := digit;
        N := N div 10;
    end;
    writeln(maxdigit);
end.