Введите ответ в поле ввода

Бейсик

Python

DIM X, L, M AS INTEGER

INPUT X

L = X

M = 65

IF L MOD 2 = 0 THEN

   M = 52

ENDIF

WHILE L <> M

IF L > M THEN

 L = L – M

ELSE

 M = M – L

ENDIF

WEND

PRINT M

x = int(input())

L = x

M = 65

if L % 2 == 0:

    M = 52

while L != M:

    if L > M:

        L = L - M

    else:

        M = M - L

print(M)

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

Паскаль

алг

нач

  цел x, L, M

  ввод x

  L := x

  M := 65

  если mod(L,2)=0

    то

      M := 52

  все

  нц пока L <> M

    если L > M

      то

        L := L – M

      иначе

        M := M – L

    все

  кц

  вывод M

кон

var x, L, M: integer;

begin

  readln(x);

  L := x;

  M := 65;

  if L mod 2 = 0 then

    M := 52;

  while L <> M do

    if L > M then

      L := L - M

    else

      M := M – L;

  writeln(M);

end.

Си

#include

void main()

{

  int x, L, M;

  scanf("%d", &x);

  L = x;

  M = 65;

  if (L % 2 == 0)

    M = 52;

  while (L != M){

    if(L > M)

      L = L - M;

    else

      M = M - L;

  }

  printf("%d", M);

}