Память электронной книги 9 гб. Для хранения одного символа используется 8 бит. Какой будет высота стопки из бумажных листов с таким же текстом, если стопка из 100 страниц равна 1 см, а на одну страницу помещается 40 строк по 60 знаков. ответ округлить до целого числа см. ​

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.

Const
   N = 6;
   M = 10;
Var
   A:array[1..N,1..M] of integer;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив(',N,',',M,'):');
For i:= 1 to N do
    Begin
    k:=0;
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:4);
        if A[i,j] > 0 then k:=k+1;
        End;
    WriteLn(', k = ',k)
    End;
End.

Пример работы программы:

Исходный массив(6,10):
   8   5  -1  -1  -2 -10  10  -8  -7   5, k = 4
   8   3   2   5   5   6  -2   3   1   1, k = 9
   1   7   7   4  10   1   6   7   7  10, k = 10
  10  -4  -8  -8   4   4  -3   0   3  -7, k = 4
  -6  -3   1   7  -7   7   2  -1   7  -5, k = 5
   6   5  -6   5   7 -10   9   5   0   7, k = 7