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

DIM S, N AS INTEGER
S = 0
N = 75
WHILE S + N < 150
  S = S + 15
  N = N - 5
WEND
PRINT N

s = 0
n = 75
while s + n < 150:
 s = s + 15
 n = n - 5
print(n)

алг
нач
 цел n, s
 s := 0
 n := 75
 нц пока s + n < 150
  s := s + 15
  n := n - 5
 кц
 вывод n
кон

var s, n: integer;
begin
 s := 0;
 n := 75;
 while s + n < 150 do
 begin
  s := s + 15;
  n := n - 5
 end;
 writeln(n)
end.

#include <iostream>
using namespace std;

int main() {
 int s = 0, n = 75;
 while (s + n < 150) {
  s = s + 15;
  n = n - 5;
 }
 cout << n << endl;
 return 0;
}

SUB F(n)
 IF n > 0 THEN
  F(n - 1)
  PRINT n
  F(n - 2)
 END IF
END SUB

def F(n):
 if n > 0:
  F(n - 1)
  print(n)
  F(n - 2)

алг F(цел n)
нач
 если n > 0 то
  F(n - 1)
  вывод n
  F(n - 2)
 все
кон

procedure F(n: integer);
begin
 if n > 0 then
 begin
  F(n - 1);
  write(n);
  F(n - 2)
 end
end;

void F(int n){
 if (n > 0){
  F(n - 1);
  std::cout << n;
  F(n - 2);
 }
}

 ПОКА условие
 последовательность команд
 КОНЕЦ ПОКА

 ЕСЛИ условие
  ТО команда1
 КОНЕЦ ЕСЛИ

 ЕСЛИ условие
  ТО команда1
  ИНАЧЕ команда2
 КОНЕЦ ЕСЛИ

НАЧАЛО
ПОКА нашлось (11111) ИЛИ нашлось (888)
 ЕСЛИ нашлось (11111)
  ТО заменить (11111, 88)
 ИНАЧЕ
  ЕСЛИ нашлось (888)
   ТО заменить (888, 8)
  КОНЕЦ ЕСЛИ
 КОНЕЦ ЕСЛИ
КОНЕЦ ПОКА
КОНЕЦ

c = 0
FOR i = 1 TO 9
 IF A(i-1) < A(i) THEN
  c = c + 1
  t = A(i)
  A(i) = A(i-1)
  A(i-1) = t
 END IF
NEXT i

c = 0
for i in range(1, 10):
 if A[i-1] < A[i]:
  c = c + 1
  A[i-1], A[i] = A[i], A[i-1]

c := 0
нц для i от 1 до 9
 если A[i-1] < A[i] то
  c := c + 1
  t := A[i]
  A[i] := A[i-1]
  A[i-1] := t
 все
кц

c := 0;
for i := 1 to 9 do
 if A[i-1] < A[i] then
 begin
  c := c + 1;
  t := A[i];
  A[i] := A[i-1];
  A[i-1] := t;
 end;

c = 0;
for (int i = 1; i < 10; i++)
 if (A[i-1] < A[i]){
  c++;
  t = A[i];
  A[i] = A[i-1];
  A[i-1] = t;
 }

DIM X, L, M AS INTEGER
INPUT X
L = 1
M = 0
WHILE X > 0
 M = M + 1
 IF X MOD 2 <> 0 THEN
  L = L * (X MOD 8)
 END IF
 X = X \ 8
WEND
PRINT L
PRINT M

x = int(input())
L = 1
M = 0
while x > 0:
 M = M + 1
 if x % 2 != 0:
  L = L * (x % 8)
 x = x // 8
print(L)
print(M)

алг
нач
 цел x, L, M
 ввод x
 L := 1
 M := 0
 нц пока x > 0
  M := M + 1
  если mod(x,2) <> 0 то
   L := L * mod(x,8)
  все
  x := div(x,8)
 кц
 вывод L, нс, M
кон

var x, L, M: integer;
begin
 readln(x);
 L := 1;
 M := 0;
 while x > 0 do
 begin
  M := M + 1;
  if x mod 2 <> 0 then
   L := L * (x mod 8);
  x := x div 8
 end;
 writeln(L);
 writeln(M)
end.

#include <iostream>
using namespace std;

int main(){
 int x, L, M;
 cin >> x;
 L = 1;
 M = 0;
 while (x > 0) {
  M = M + 1;
  if(x % 2 != 0) {
   L = L * (x % 8);
  }
  x = x / 8;
 }
 cout << L << endl << M << endl;
 return 0;
}

DIM A, B, T, M, R AS LONG
A = -20: B = 20
M = A: R = F(A)
FOR T = A TO B
 IF F(T) <= R THEN
  M = T
  R = F(T)
 END IF
NEXT T
PRINT M + R

FUNCTION F(x)
 F = abs(abs(x - 6) + abs(x + 6) - 16) + 2
END FUNCTION

def F(x):
 return abs(abs(x - 6) + abs(x + 6) - 16) + 2

a = -20
b = 20
M = a
R = F(a)
for t in range(a, b + 1):
 if (F(t) <= R):
  M = t
  R = F(t)
print (M + R)

алг
нач
цел a, b, t, M, R
 a := -20; b := 20
 M := a; R := F(a)
 нц для t от a до b
  если F(t) <= R то
   M := t; R := F(t)
  все
 кц
 вывод M + R
кон
алг цел F(цел x)
нач
 знач := iabs(iabs(x - 6) + iabs(x + 6) - 16) + 2
кон

var a, b, t, M, R : longint;
function F(x: longint) : longint;
begin
 F := abs(abs(x - 6) + abs(x + 6) - 16) + 2;
end;

begin
 a := -20; b := 20;
 M := a; R := F(a);
 for t := a to b do begin
  if (F(t) <= R) then begin
   M := t;
   R := F(t)
  end
 end;
 write(M + R)
end.

#include <iostream>
using namespace std;

long F(long x) {
 return abs(abs(x - 6) + abs(x + 6) - 16) + 2;
}

int main() {
 long a = -20, b = 20, M = a, R = F(a);
 for (int t = a; t <= b; ++t) {
  if (F(t) <= R) {
   M = t; R = F(t);
  }
 }
 cout << M + R;
 return 0;
}