Алгоритмы и программирование — ЕГЭ по информатике — страница 48

Бейсик

Python

s = 0

FOR j = 0 TO 8

  IF A(j) < A(j+1) THEN

    s = s + 1

    t = A(j)

    A(j) = A(j+1)

    A(j+1) = t

  END IF

NEXT j

s = 0

for j in range(9):

  if A[j] < A[j+1]:

    s = s + 1

    t = A[j]

    A[j] = A[j+1]

    A[j+1] = t

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

Паскаль

s := 0

нц для j от 0 до 8

  если A[j] < A[j+1] то

    s := s + 1

    t := A[j]

    A[j] := A[j+1]

    A[j+1] := t

  все
кц

s := 0;

for j := 0 to 8 do

  if A[j] < A[j+1] then

  begin

    s := s + 1;

    t := A[j];

    A[j] := A[j+1];

    A[j+1] := t;

  end;

Си

s = 0;

for (j = 0;j < 9;j++)

    if (A[j] < A[j+1])

    {

      s++;

      t = A[j];

      A[j] = A[j+1];

      A[j+1] = t;

    }

С++

Python

#include <iostream>
using namespace std;

int main()
{ 

  int x, P, S, N;
  cin >> x;
  P = 1;

  S = 0;
  N = 0;
  while (x > 0) {
    N = N + 1;

    S = S + (x % 4)
    P = P * (x % 4)
    x = x / 4;
  }

  S = S + N;

  P = P + N;
  cout << S << endl << P << endl;
  return 0;
}

x = int(input())
P = 1
S = 0

N = 0
while x > 0:
  N = N + 1

  S = S + (x % 4)

  P = P * (x % 4)
  x = x // 4
S = S + N

P = P + N

print(S)
print(P)

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

Паскаль

алг
нач
  цел x, P, S, N
  ввод x
  P := 1
  S := 0

  N := 0
  нц пока x > 0
    N := N + 1

    S := S + mod(x, 4)

    P := P * mod(x, 4)
    x := div(x, 4)
  кц

  S := S + N

  P := P + N
  вывод S, нс, P
кон

var x, P, S, N: integer;
begin
  readln(x);
  P := 1;
  S := 0;

  N := 0;
  while x > 0 do
  begin
    N := N + 1;

    S := S + (x mod 4);

    P := P * (x mod 4);
    x := x div 4
  end;

  S := S + N;

  P := P + N;
  writeln(S);
  writeln(P)
end.

Бейсик

Python

s = 0

FOR j = 0 TO 9

  IF A(j) > A(j+1) THEN

    s = s + 1

    t = A(j)

    A(j) = A(j+1)

    A(j+1) = t

  END IF

NEXT j

s = 0

for j in range(10):

  if A[j] > A[j+1]:

    s = s + 1

    t = A[j]

    A[j] = A[j+1]

    A[j+1] = t

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

Паскаль

s := 0

нц для j от 0 до 9

  если A[j] > A[j+1] то

    s := s + 1

    t := A[j]

    A[j] := A[j+1]

    A[j+1] := t

  все
кц

s := 0;

for j := 0 to 9 do

  if A[j] > A[j+1] then

  begin

    s := s + 1;

    t := A[j];

    A[j] := A[j+1];

    A[j+1] := t;

  end;

Си

s = 0;

for (j = 0; j < 10; j++)

    if (A[j] > A[j+1])

    {

      s++;

      t = A[j];

      A[j] = A[j+1];

      A[j+1] = t;

    }

Бейсик

Python

c = 0

FOR i = 0 TO 8

  IF A(i) < A(9) THEN

    c = c + 1

    t = A(i)

    A(i) = A(9)

    A(9) = t

  END IF

NEXT i

c = 0

for i in range(9):

  if A[i] < A[9]:

    c = c + 1

    t = A[i]

    A[i] = A[9]

    A[9] = t

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

Паскаль

c := 0

нц для i от 0 до 8

  если A[i] < A[9] то

    c := с + 1

    t := A[i]

    A[i] := A[9]

    A[9] := t

  все
кц

c := 0;

for i := 0 to 8 do

  if A[i] < A[9] then

  begin

    c := c + 1;

    t := A[i];

    A[i] := A[9];

    A[9] := t;

  end;

Си

c = 0;

for (i = 0;i < 9;i++)

    if (A[i] < A[9])

    {

      c++;

      t = A[i];

      A[i] = A[9];

      A[9] = t;

    }

С++

Python

#include <iostream>
using namespace std;

int main()
{

  int x, K1, K2, Q, P, L, M;
  cin >> x;
  Q = 8;
  P = 10;

  K1 = 0;

  K2 = 0;
  while (x <= 100){
    K1 = K1 + 1;
    x = x + P;
  }

  while (x >= Q){
    K2 = K2 + 1;
    x = x - Q;
  }

  L = x + K1;

  M = x + K2;
  cout << L << endl << M << endl;
  return 0;
}

x = int(input())
Q = 8

P = 10
K1 = 0

K2 = 0
while x <= 100:
  K1 = K1 + 1
  x = x + P

while x >= Q:
  K2 = K2 + 1
  x = x - Q
L = x + K1

M = x + K2
print(L)
print(M)

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

Паскаль

алг
нач
  цел x, K1, K2, Q, P, L, M
  ввод x
  Q := 8

  P := 10
  K1 := 0

  K2 := 0
  нц пока x <= 100
    K1 := K1 + 1
    x := x + P
  кц
  нц пока x >= Q
    K2 := K2 + 1
    x := x - Q
  кц

  L := x + K1

  M := x + K2
  вывод L, нс, M
кон

var x, K1, K2, Q, P, L, M: integer;
begin
  readln(x);
  Q := 8;
  P := 10;

  K1 := 0;

  K2 := 0;
  while x <= 100 do
  begin
    K1 := K1 + 1;
    x := x + P;
  end;
  while x >= Q do
  begin
    K2 := K2 + 1;
    x := x - Q;
  end;

  L := x + K1;

  M := x + K2;
  writeln(L);
  writeln(M);
end.

Бейсик

Python

DIM X, L, M AS INTEGER

INPUT X

L = 0

M = 0

WHILE X > 0

M = M + 1

IF X MOD 2 <> 0 THEN

 L = L + 1

END IF

X = X \ 2

WEND

PRINT L

PRINT M

x = int(input())

L = 0

M = 0

while x > 0:

    M = M + 1

    if x % 2 != 0:

        L = L + 1

    x = x // 2

print(L)

print(M)

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

Паскаль

алг

нач

  цел x, L, M

  ввод x

  L := 0

  M := 0

  нц пока x > 0

    M := M + 1

    если mod(x,2) <> 0

      то

        L := L + 1

    все

    x := div(x,2)

  кц

  вывод L, нс, M

кон

var x, L, M: integer;

begin

  readln(x);

  L := 0;

  M := 0;

  while x > 0 do

  begin

    M := M + 1;

    if x mod 2 <> 0 then

      L := L + 1;

    x := x div 2;

  end;

  writeln(L);

  writeln(M);

end.

Си

#include<stdio.h>

void main()

{

  int x, L, M;

  scanf("%d", &x);

  L = 0;

  M = 0;

  while (x > 0){

    M = M + 1;

    if(x % 2 != 0){

      L = L + 1;

    }

    x = x / 2;

  }

  printf("%d\n%d", L, M);

}