Исправление программы поиска цифры

Бейсик

Python

DIM N, DIGIT, MINDIGIT AS LONG

INPUT N

MINDIGIT = N MOD 10

WHILE N > 0

DIGIT = N MOD 10

IF DIGIT MOD 6 = 0 THEN

IF DIGIT < MINDIGIT THEN

MINDIGIT = DIGIT

END IF

END IF

N = N \ 10

WEND

IF MINDIGIT = 0 THEN

PRINT "NO"

ELSE

PRINT MINDIGIT

END IF

N = int(input())

minDigit = N % 10

while N > 0:

digit = N % 10

if digit % 6 == 0:

if digit < minDigit:

minDigit = digit

N = N // 10

if minDigit == 0:

print("NO")

else:

print(minDigit)

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

Паскаль

алг

нач

цел N, digit, minDigit

ввод N

minDigit := mod(N,10)

нц пока N > 0

digit := mod(N,10)

если mod(digit, 6) = 0 то

если digit < minDigit то

minDigit := digit

все

все

N := div(N,10)

кц

если minDigit = 0 то

вывод "NO"

иначе

вывод minDigit

все

кон

var N,digit,minDigit: longint;

begin

readln(N);

minDigit := N mod 10;

while N > 0 do

begin

digit := N mod 10;

if digit mod 6 = 0 then

if digit < minDigit then

minDigit := digit;

N := N div 10;

end;

if minDigit = 0 then

writeln('NO')

else

writeln(minDigit)

end.

Си

#include <stdio.h>

int main()

{

int N, digit, minDigit;

scanf("%d", &N);

minDigit = N % 10;

while (N > 0)

{

digit = N % 10;

if (digit % 6 == 0)

if (digit < minDigit)

minDigit = digit;

N = N / 10;

}

if (minDigit == 0)

printf("NO");

else

printf("%d",minDigit);

return 0;

}