На обработку поступает натуральное число, не… — Обработка целочисленной информации — ЕГЭ

На обработку поступает натуральное число, не превышающее 109. Нужно написать программу, которая выводит на экран максимальную цифру числа, кратную 3. Если цифр, кратных 3, в числе нет, требуется на экран вывести «NO». Программист написал программу неправильно. Ниже эта программа для Вашего удобства приведена на пяти языках программирования.
Напоминание: 0 делится на любое натуральное число.

Бейсик	Python
DIM N,DIGIT,MAXDIGIT AS LONG INPUT N MAXDIGIT = 0 WHILE N > 0 DIGIT = N MOD 10 IF DIGIT MOD 3 = 0 THEN IF DIGIT > MAXDIGIT THEN MAXDIGIT = DIGIT END IF END IF N = N \ 10 WEND IF MAXDIGIT > 0 THEN PRINT MAXDIGIT ELSE PRINT "NO" END IF	N = int(input()) maxDigit = 0 while N > 0: digit = N % 10 if digit % 3 == 0: if digit > maxDigit: maxDigit = digit N = N // 10 if maxDigit > 0: print(maxDigit) else: print("NO")
Алгоритмический язык	Паскаль
алг нач цел N, digit, maxDigit ввод N maxDigit := 0 нц пока N > 0 digit := mod(N,10) если mod(digit, 3 ) = 0 то если digit > maxDigit то maxDigit := digit все все N := div(N,10) кц если maxDigit > 0 то вывод maxDigit иначе вывод " NO " все кон	var N,digit,maxDigit: longint; begin readln(N); maxDigit := 0; while N > 0 do begin digit := N mod 10; if digit mod 3 = 0 then if digit > maxDigit then maxDigit := digit; N := N div 10; end; if maxDigit > 0 then writeln(maxDigit) else writeln('NO') end.

Си

#include <stdio.h> int main() { int N, digit, maxDigit; scanf("%d", &N); maxDigit = 0; while (N > 0) { digit = N % 10; if (digit % 3 == 0) if (digit > maxDigit) maxDigit = digit; N = N / 10; } if (maxDigit > 0) printf("%d",maxDigit); else printf("NO"); return 0; }

Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе числа 105.
2. Приведите пример такого трёхзначного числа, при вводе которого программа выдаёт верный ответ.
3. Найдите все ошибки в этой программе (их может быть одна или несколько). Известно, что каждая ошибка затрагивает только одну строку
и может быть исправлена без изменения других строк. Для каждой ошибки:
1) выпишите строку, в которой сделана ошибка;
2) укажите, как исправить ошибку, т.е. приведите правильный вариант строки.
Достаточно указать ошибки и способ их исправления для одного языка программирования.
Обратите внимание, что требуется найти ошибки в имеющейся программе,
а не написать свою, возможно, использующую другой алгоритм решения. Исправление ошибки должно затрагивать только строку, в которой находится ошибка.

Бейсик

Python

DIM N,DIGIT,MAXDIGIT AS LONG INPUT N MAXDIGIT = 0 WHILE N > 0 DIGIT = N MOD 10 IF DIGIT MOD 3 = 0 THEN IF DIGIT > MAXDIGIT THEN MAXDIGIT = DIGIT END IF END IF N = N \ 10 WEND IF MAXDIGIT > 0 THEN PRINT MAXDIGIT ELSE PRINT "NO" END IF

N = int(input()) maxDigit = 0 while N > 0: digit = N % 10 if digit % 3 == 0: if digit > maxDigit: maxDigit = digit N = N // 10 if maxDigit > 0: print(maxDigit) else: print("NO")

Алгоритмический язык

Паскаль

алг нач цел N, digit, maxDigit ввод N maxDigit := 0 нц пока N > 0 digit := mod(N,10) если mod(digit, 3 ) = 0 то если digit > maxDigit то maxDigit := digit все все N := div(N,10) кц если maxDigit > 0 то вывод maxDigit иначе вывод " NO " все кон

var N,digit,maxDigit: longint; begin readln(N); maxDigit := 0; while N > 0 do begin digit := N mod 10; if digit mod 3 = 0 then if digit > maxDigit then maxDigit := digit; N := N div 10; end; if maxDigit > 0 then writeln(maxDigit) else writeln('NO') end.