Язык программирования (Паскаль, Python, Java, C++, C#). Типы данных: целочисленные, вещественные, символьные, логические. Ветвления. Сложные условия. Циклы с условием. Циклы по переменной. Обработка данных, хранящихся в файлах. Текстовые и двоичные файлы. Файловые переменные (файловые указатели). Чтение из файла. Запись в файл. Разбиение задачи на подзадачи. Подпрограммы (процедуры и функции). Использование стандартной библиотеки языка программирования — ЕГЭ по информатике

Бейсик

Python

DIM N, DIGIT, MINDIGIT AS LONG

INPUT N

MINDIGIT = 9

WHILE N > 0

  DIGIT = N MOD 10

  IF DIGIT MOD 3 = 0  THEN

    IF DIGIT < MINDIGIT THEN

      DIGIT = MINDIGIT

    END IF

  END IF

  N = N \ 10

WEND

IF MINDIGIT <= 9 THEN

  PRINT MINDIGIT

ELSE

  PRINT "NO"

END IF

N = int(input())

minDigit = 9

while N > 0:

  digit = N % 10

  if digit % 3 == 0:

    if digit < minDigit:

      digit = minDigit

  N = N // 10

if minDigit <= 9:

  print(minDigit)

else:

  print("NO")

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

Паскаль

алг

нач

  цел N, digit, minDigit

  ввод N

  minDigit := 9

  нц пока N > 0

    digit := mod(N,10)

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

      если digit < minDigit то

        digit := minDigit

      все

    все

    N := div(N,10)

  кц

  если minDigit <= 9 то

    вывод minDigit

  иначе

    вывод "NO"

  все

кон

var N,digit,minDigit: longint;

begin

  readln(N);

  minDigit := 9;

  while N > 0 do

  begin

    digit := N mod 10;

    if digit mod 3 = 0 then

      if digit < minDigit then

        digit := minDigit;

    N := N div 10;

  end;

  if minDigit <= 9 then

    writeln(minDigit)

  else

    writeln('NO')

end.

С++

#include <iostream>

using namespace std;

int main()

{

  int N, digit, minDigit;

  cin >> N;

  minDigit = 9;

  while (N > 0)

  {

    digit = N % 10;

    if (digit % 3 == 0)

      if (digit < minDigit)

        digit = minDigit;

    N = N / 10;

  }

  if (minDigit <= 9)

    cout << minDigit << endl;

  else

    cout << "NO" << endl;

  return 0;

}

Бейсик

Python

DIM N, DIGIT, MINDIGIT AS LONG

INPUT N

MINDIGIT = 9

WHILE N > 0

  DIGIT = N MOD 10

  IF DIGIT > 3 THEN

    IF DIGIT < MINDIGIT THEN

      DIGIT = MINDIGIT

    END IF

  END IF

  N = N \ 10

WEND

IF MINDIGIT <= 9 THEN

  PRINT MINDIGIT

ELSE

  PRINT "NO"

END IF

N = int(input())

minDigit = 9

while N > 0:

  digit = N % 10

  if digit > 3:

    if digit < minDigit:

      digit = minDigit

  N = N // 10

if minDigit <= 9:

  print(minDigit)

else:

  print("NO")

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

Паскаль

алг

нач

  цел N, digit, minDigit

  ввод N

  minDigit := 9

  нц пока N > 0

    digit := mod(N,10)

    если digit > 3 то

      если digit < minDigit то

        digit := minDigit

      все

    все

    N := div(N,10)

  кц

  если minDigit <= 9 то

    вывод minDigit

  иначе

    вывод "NO"

  все

кон

var N,digit,minDigit: longint;

begin

  readln(N);

  minDigit := 9;

  while N > 0 do

  begin

    digit := N mod 10;

    if digit > 3 then

      if digit < minDigit then

        digit := minDigit;

    N := N div 10;

  end;

  if minDigit <= 9 then

    writeln(minDigit)

  else

    writeln('NO')

end.

С++

#include <iostream>

using namespace std;

int main()

{

  int N, digit, minDigit;

  cin >> N;

  minDigit = 9;

  while (N > 0)

  {

    digit = N % 10;

    if (digit > 3)

      if (digit < minDigit)

        digit = minDigit;

    N = N / 10;

  }

  if (minDigit <= 9)

    cout << minDigit << endl;

  else

    cout << "NO" << endl;

  return 0;

}

Бейсик

Python

DIM N,DIGIT,MAXDIGIT AS LONG

INPUT N

MAXDIGIT = 0

WHILE N > 0

  DIGIT = N MOD 10

  IF DIGIT MOD 5 = 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 % 5 == 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, 5) = 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 5 = 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 % 5 == 0)

      if (digit > maxDigit)

        maxDigit = digit;

    N = N / 10;

  }

  if (maxDigit > 0)

    printf("%d",maxDigit);

  else

    printf("NO");

  return 0;

}

Бейсик

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;

}

Бейсик

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;

}

Бейсик

Python

CONST n = 4

count = 0

maximum = 1000

FOR I = 1 TO n

  INPUT x

  IF x mod 2 = 0 THEN

    count = count + 1

    IF x > maximum THEN

      maximum = I

    END IF

  END IF

NEXT I

IF count > 0 THEN

  PRINT count

  PRINT maximum

ELSE

  PRINT "NO"

END IF

n = 4

count = 0

maximum = 1000

for i in range(1, n+1):

    x = int(input())

    if x % 2 == 0:

        count += 1

        if x > maximum:

            maximum = i

if count > 0:

    print(count)

    print(maximum)

else:

    print("NO")

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

Паскаль

алг

нач

  цел n = 4

  цел i, x

  цел maximum, count

  count := 0

  maximum := 1000

  нц для i от 1 до n

    ввод x

    если mod(x, 2) = 0 то

      count := count + 1

      если x > maximum то

        maximum := i

      все

    все

  кц

  если count > 0 то

    вывод count, нс

    вывод maximum

  иначе

    вывод "NO"

  все

кон

const n = 4;

var i, x: integer;

var maximum, count: integer;

begin

  count := 0;

  maximum := 1000;

  for i := 1 to n do

  begin

    read(x);

    if x mod 2 = 0 then

    begin

      count := count + 1;

      if x > maximum then

        maximum := i

    end

  end;

  if count > 0 then

  begin

    writeln(count);

    writeln(maximum)

  end

  else

    writeln('NO')

end.

С++

#include <iostream>

using namespace std;

int main() {

  const int n = 4;

  int x, maximum, count;

  count = 0;

  maximum = 1000;

  for (int i = 1; i <= n; i++) {

    cin >> x;

    if (x % 2 == 0) {

      count++;

      if (x > maximum)

        maximum = i;

    }

  }

  if (count > 0) {

    cout << count << endl;

    cout << maximum << endl;

  }

  else

    cout << "NO" << endl;

  return 0;

}

Бейсик

Python

DIM N, DIGIT, MAXDIGIT AS LONG

INPUT N

MAXDIGIT = N MOD 10

WHILE N > 0

  DIGIT = N MOD 10

  IF DIGIT MOD 5 = 0 THEN

    IF DIGIT > MAXDIGIT THEN

      MAXDIGIT = DIGIT

    END IF

  END IF

  N = N \ 10

WEND

IF MAXDIGIT = 0 THEN

  PRINT "NO"

ELSE

  PRINT MAXDIGIT

END IF

N = int(input())

maxDigit = N % 10

while N > 0:

  digit = N % 10

  if digit % 5 == 0:

    if digit > maxDigit:

      maxDigit = digit

  N = N // 10

if maxDigit == 0:

  print("NO")

else:

  print(maxDigit)

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

Паскаль

алг

нач

  цел N, digit, maxDigit

  ввод N

  maxDigit := mod(N,10)

  нц пока N > 0

    digit := mod(N,10)

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

      если digit > maxDigit то

        maxDigit := digit

      все

    все

    N := div(N,10)

  кц

  если maxDigit = 0 то

    вывод "NO"

  иначе

    вывод maxDigit

  все

кон

var N,digit,maxDigit: longint;

begin

  readln(N);

  maxDigit := N mod 10;

  while N > 0 do

  begin

    digit := N mod 10;

    if digit mod 5 = 0 then

      if digit > maxDigit then

        maxDigit := digit;

    N := N div 10;

  end;

  if maxDigit = 0 then

    writeln('NO')

  else

    writeln(maxDigit)

end.

Си

#include <stdio.h>

int main()

{

  int N, digit, maxDigit;

  scanf("%d", &N);

  maxDigit = N % 10;

  while (N > 0)

  {

    digit = N % 10;

    if (digit % 5 == 0)

      if (digit > maxDigit)

        maxDigit = digit;

    N = N / 10;

  }

  if (maxDigit == 0)

    printf("NO");

  else

    printf("%d",maxDigit);

  return 0;

}