Дано натуральное число, не превышающее 108 . Нужно написать
программу, которая выводит на экран максимальную цифру числа,
меньшую 7. Если в числе нет цифр, меньших 7, требуется на экран вывести
«NO». Программист написал программу неправильно.
Найдите в программе все ошибки (их может быть одна или несколько).
Для каждой ошибки выпишите строку, в которой она допущена, и
приведите эту же строку в исправленном виде

(Паскаль)
var N, d, m: longint;
begin
readln(N);
m := 0;
while N > 0 do begin
d := N mod 10;
if d < 7 then
if m < d then m := d;
N := N div 10;
end;
if m = 0 then writeln('NO')
else writeln(m)
end.

inakuleshova19    3   04.06.2020 15:18    9