Напишіть команду оголошення події TT(для кнопки

Question

Информатика: Напишіть команду оголошення події TT(для кнопки

milanareemets · Accepted Answer

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.

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

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

MOGZ ответил