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

Требовалось написать программку при исполненьи которой с клавиатуры считывается натуральное число N, не превосходящее 10^9 и выводится наибольшая цифра этого числа.
Поочередно сделайте последующее.
1. Напишите что выведет это программка при вводе числа 321.
2. Найдите все оплошности в этой программке (их может быть одна либо несколько). Для каждой ошибки:
1) выпишите строчку, в которой изготовлена ошибка;
2) укажите, как поправить ошибку, - приведите верный вариант строки.

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.

Shabordin Romka 2019-09-05 17:43:52

седня решала

Регина Корзунецкая 2019-09-05 17:46:44

https://znanija.com/task/24881352