Тренировочный вариант ЕГЭ по информатике №2

var
  s, n : longint;
begin
  s := -1; n := 3;
  while 6*s*s*s*s*s > 800*s*s*s do begin
    s := s - 2;
    n := n * 2
  end;
  write(n - s)
end.

#include <iostream>

int main() {
  int s = -1, n = 3;
  while (6*s*s*s*s*s > 800*s*s*s) {
    s -= 2;
    n *= 2;
  }
  std::cout << n - s;
  return 0;
}

Dim S, N As Long
S = -1
N = 3
While 6*S*S*S*S*S > 800*S*S*S
  S = S - 2
  N = N * 2
Wend
Print N - S

s, n = -1, 3
while 6*s*s*s*s*s > 800*s*s*s :
  s -= 2
  n *= 2
print(n - s)

function F(n : integer) : integer;
begin
  if n > 2 then
    F := F(n - 1) - F(n - 2)
  else
    if n = 2 then
      F := F(n - 1) * F(n - 1)
    else
      F := 3
end;

int F(int n) {
  if (n > 2)
    return F(n - 1) - F(n - 2);
  else
    if (n == 2)
      return F(n - 1) * F(n - 1);
    else
      return 3;
}

FUNCTION F(N)
  IF N > 2 THEN
    F = F(N - 1) - F(N - 2)
  ELSE
    IF N = 2 THEN
      F = F(N - 1) * F(N - 1)
    ELSE
      F = 3
    END IF
  END IF
END FUNCTION

def F(n):
  if n > 2:
    return F(n - 1) - F(n - 2)
  elif n == 2:
    return F(n - 1) * F(n - 1)
  else:
    return 3

ПОВТОРИ число РАЗ
  последовательность команд
КОНЕЦ ПОВТОРИ

НАЧАЛО
  сместиться на (15, -10)
  ПОВТОРИ n РАЗ
    сместиться на (a, -b)
    сместиться на (-1, -2)
  КОНЕЦ ПОВТОРИ
  сместиться на (-3, 28)
КОНЕЦ

k := 0;
for i := 0 to 9 do begin
  m := A[i] mod 10;
  if A[i] >= A[m] then begin
    k := k + 1;
    A[m] := A[i]
  end
end;

k = 0;
for (i = 0; i < 10; i++) {
  m = A[i] % 10;
  if (A[i] >= A[m]){ 
    k++;
    A[m] = A[i];
  }
}

K = 0
FOR I = 0 TO 9
  M = A(I) MOD 10
  IF A(I) >= A(M) THEN
    K = K + 1
    A(M) = A(I)
  END IF
NEXT I

k = 0
for i in range(10) :
  m = A[i] % 10
  if A[i] >= A[m] :
    k += 1
    A[m] = A[i]

var
  x, a, b : integer;
begin
  read(x);
  a := 0; b := 0;
  while x > 0 do begin
    if x mod 8 mod 3 > 1 then
      a := a + 1;
    if x mod 8 mod 3 < 1 then
      b := b + 1;
    x := x div 8
  end;
  writeln(a, ' ', b)
end.

#include <iostream>

int main() {
  int x, a = 0, b = 0;
  std::cin >> x;
  while (x > 0) {
    if (x % 8 % 3 > 1)
      a++;
    if (x % 8 % 3 < 1)
      b++;
    x /= 8;
  }
  std::cout << a << " " << b;
}

Dim X, A, B As Integer
Input X
A = 0 : B = 0
While X > 0
  If X Mod 8 Mod 3 > 1 Then
    A =  A + 1
  End If
  If X Mod 8 Mod 3 < 1 Then
    B = B + 1
  End If
  X = X \ 8
Wend
Print A, " ", B

x = int(input())
a = b = 0
while x > 0 :
  if x % 8 % 3 > 1 :
    a += 1
  if x % 8 % 3 < 1 :	
    b += 1
  x //= 8
print(a, b)

function f(x : integer) : integer;
begin
  if x > 2 then
    f := x * x - 23
  else
    f := x * x + 3 * x - 7
end;

var
  t, M : integer;
begin
  M := -5;
  for t := -4 to 5 do
    if f(t) > f(M) then
      M := t;
  writeln(5 - M)
end.

#include <iostream>

int f(int x){
  if (x > 2)
    return x * x - 23;
  return x * x + 3 * x - 7;
}

int main(){
  int M = -5;
  for (int t = -4; t < 6; t++)
    if (f(t) > f(M))
      M = t;
  std::cout << 5 - M;
  return 0;
}

DIM T, M AS INTEGER
M = -5
FOR T = -4 TO 5
  IF F(T) > F(M) THEN
    M = T
  END IF
NEXT T
PRINT 5 - M

FUNCTION F(X)
IF X > 2 THEN
  F = X * X - 23
ELSE
  F = X * X + 3 * X - 7
END IF
END FUNCTION

def f(x) :
  if x > 2 :
    return x * x - 23
  return x * x + 3 * x - 7

M = -5
for t in range(-4, 6) :
  if f(t) > f(M) :
    M = t
print(5 - M)