Информатика. Вариант 10

Укажите длину (в километрах) кратчайшего маршрута из А в Z, который проходит через пять или более населённых пунктов. Пункты А и Z при подсчёте учитывайте. Два раза проходить через один пункт нельзя. В ответе укажите только число.

Каким выражением может быть F?

1) (X v Y) ∧ (Z v 0)

2) (X ∧ Y) v (Z v 1)

3) X ∧ Y ∧ -Z

4) X v Y v -Z

1) Иноварова В.П.

2) Злобкина С.В.

3) Лисица А.П.

4) Королёк М.В

1) прибавь 2,

2) умножь на 3.

Первая из них увеличивает число на экране на 2, вторая утраивает его. Запишите порядок команд в программе преобразования числа 1 в число 35, содержащей не более 5 команд, указывая лишь номера команд. (Например, 21211 — это программа

умножь на 3

прибавь 2

умножь на 3

прибавь 2

прибавь 2,

которая преобразует число 1 в число 19.)

(Если таких программ более одной, то запишите любую из них.)

Какое целое число должно быть записано в ячейке С1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек А2:С2 соответствовала рисунку?

Известно, что все значения диапазона, по которым построена диаграмма, имеют один и тот же знак.

Компьютер Маши может начать ретрансляцию данных не раньше чем им будут получены первые 1024 Кбайт этих данных. Каков минимально возможный промежуток времени (в секундах) с момента начала скачивания Машей данных до полного их получения Андреем?

В ответе укажите только число, слово «секунд» или букву «с» добавлять не нужно.

Бейсик

DIM k, s, d AS INTEGER
INPUT d
s = 100
к = 1000
WHILE k > 0
    s = s - 15
    k = k - d
WEND
PRINT s

Паскаль

var k, s, d: integer;
begin
    readln(d);
    s := 100;
    k := 1000;
    while k > 0 do
    begin
        s := s - 15;
        k : = k - d;
    end;
    write (s);
end.

Си

{
    int k, s, d;
    scanf("%d", &d);
    s = 100;
    к = 1000;
    while (k > 0) {
        s = s - 15;
        k = k - d;
    }
    printf("%d", s);
}

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

нач
    цел k, s, d
    ввод d
    s := 100
    k := 1000
    нц пока k > 0
        s := s - 15
        k := k - d
    кц
вывод s
кон

Укажите, каким кодовым словом должна быть закодирована буква Е. Длина этого кодового слова должна быть наименьшей из всех возможных. Код должен удовлетворять свойству однозначного декодирования. Если таких кодов несколько, укажите код с наименьшим числовым значением.

1. ААААА

2. ААААО

3. ААААУ

4. АААОА

Запишите слово, которое стоит под номером 242 от начала списка.

F(1) = 1

F(2) = 1

F(n) = 2F(n — 1) + F(n — 2), при n > 2

Чему равно значение функции F(5)?

В ответе запишите только натуральное число.

По заданным IP-адресу узла и маске определите адрес сети.

IP-адрес узла: 114.16.230.225

Маска: 255.255.252.0

При записи ответа выберите из приведённых в таблице чисел четыре элемента IP-адреса и запишите в нужном порядке соответствующие им буквы, без использования точек.

Пример.

Пусть искомый IP-aдpec — 192.168.128.0 и дана таблица.

В этом случае правильный ответ будет записан в виде HBAF.

Под хранение каждого такого пароля на компьютере отводится минимально возможное и одинаковое целое количество байтов, при этом используется посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством битов.

Определите объём памяти (в байтах), который занимает хранение 27 паролей. В ответе укажите только число.

Бейсик

а = 50
b = 100
b = 400 - (10 * а - 5 * b)
IF а > b THEN
    с = b + 10 * а
ELSE
    с = а + 2 * b
END IF

Паскаль

а := 50;
b := 100;
b := 400 - (10 * а - 5 * b) ;
if а > b then
    с := b + 10 * а
else
    с := а + 2 * b;

Си

а = 50;
b = 100;
b = 400 - (10 * а - 5 * b); if (а > b)
    с = b + 10 * а;
else
    с = а + 2 * b;

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

а := 50
b := 100
b := 400 - (10 * а - 5 * b)
если а > b
    то с := b + 10 * а
    иначе с := а + 2 * b
все

В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет.

Компьютер печатает количество страниц (в тысячах), которое будет найдено по следующему запросу:

Укажите целое число, которое напечатает компьютер.

Считается, что все запросы выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.

Укажите наибольшую возможную длину промежутка А, для которого формула

(x ∈ А) → ((x ∈ P) ~ ¬(x ∈ Q))

тождественно истинна, то есть принимает значение 1 при любом значении переменной х.

Бейсик

s = 1 п = 10
FOR i = 1 ТО 3
    s = s * A (i) * A(n - i + l)
NEXT i

Паскаль

s := 1; n := 10;
for i := 1 to 3 do begin
    s := s * A[i] * A[n - i + 1]
end;

Си

s = 1; n = 10;
for (i = 1; i <= 3; i++)
    s = s * A [i] * A [n - i +1];

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

s : = 1
n := 10
нц для i от 1 до 3
    s := s * A[i] * A[n - i + 1]
кц

В начале выполнения этого фрагмента в массиве находились однозначные натуральные числа, кратные 3. Какое наименьшее значение может иметь переменная s после выполнения данной программы?

Бейсик

DIM X, L, М AS INTEGER
INPUT X
L = 0: М = 9
WHILE X > 0
    L = L + 1
    IF M > (X MOD 10) THEN
        M = X MOD 10
    END IF
    X = X \ 10
WEND
PRINT L
PRINT M

Паскаль

var x, L, M: integer; begin
    readln(x);
    L := 0; M := 9;
    while x > 0 do
    begin
        L := L + 1;
        if M > (x mod 10) then
            M := x mod 10;
        x := x div 10;
    end;
    writeln(L); write(M);
end.

Си

#include<stdio.h>
void main()
{
    int x, L, M; scanf("%d", &x);
    L = 0; M = 9;
    while (x > 0){
        L = L + 1;
        if M > x % 10 {
            M = x % 10
        }
        x = x/10;
    }
    printf("%d\n%d", L, M);
}

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

алг
нач
    цел х, L, М
    ввод X
    L := 0; М := 9
    нц пока х > 0
        L : = L + 1
        если М > mcd(x, 10) то
            М := mod(x, 10)
        все
        х := div(x, 10)
    кц
    вывод L, нс, М
кон

Бейсик

DIM А, В, Т, М, R, Н AS INTEGER
INPUT Н
А = -20: В = 40
М = A: R = F (Н, А)
FOR Т = А ТО В
    IF F (Н, Т) < R THEN
        М = Т
        R = F (Н, Т)
    END IF
NEXT Т
PRINT М

FUNCTION F (Н, x)
    F = (x - 10) * (x - H)
END FUNCTION

Паскаль

var a, b, t, M, R, H: integer;
function F(H, x: integer): integer;
begin
    F := (x - 10) * (x - H) ;
end;
begin
    readln(H);
    a := -20; b := 40;
    M := a; R : = F (H, a) ;
    for t := a to b do begin
        if (F(H, t) < R) then begin
            M := t;
            R := F(H, t)
        end
    end;
write(M)
end.

Си

#include<stdio.h>
int F(int H, int x)
{
    return (x - 10) * (x - H);
}
void main()
{
    int a, b, t, M, R, H;
    scant("%d", &H);
    a = -20; b = 40;
    M = a; R = F (H, a);
    for (t = a; t <= b; t++){
        if (F (H, t) < R) {
            M = t; R = F (H, t);
        }
    }
    printf("%d", M);
}

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

нач
    цел a, b, t, R, M, H
    ввод H
    a := -20; b := 40
    M := a; R := F(H, a)
    нц для t от а до b
        если F(H, t) < R
            то
                M := t; R := F(H, t)
            все
    кц
    вывод M
кон
алг цел F(цел Н, х)
нач
    знач := (х - 10) * (х - Н)
кон

прибавь 1,

умножь на 2.

Первая из них увеличивает число на экране на 1, вторая умножает его на 2. Программа для Увеличителя — это последовательность команд.

Сколько есть программ, которые число 3 преобразуют в число 16?

(¬(x₂ ~ x₃) v (x₄ ~ x₅)) v ((x₂ ~ x₃) → (x₄ ~ x₅)) = 0

(¬(x₆ ~ x₇) v (x₈ ~ x₉)) v ((x₆ ~ x₇) → (x₈ ~ x₉)) = 0

(¬(x₂ ~ x₃) v (x₈ ~ x₉)) v ((x₂ ~ x₃) → (x₈ ~ x₉)) = 0

(¬(x₆ ~ x₇) v (x₄ ~ x₅)) v ((x₆ ~ x₇) → (x₄ ~ x₅)) = 0

((x₁₀ ~ x₁) v x₁= 1

В ответе не нужно перечислять все различные наборы значений x₁, х₂, … x₉, х₁₀, при которых выполнена данная система равенств. В качестве ответа Вам нужно указать количество таких наборов.

Часть 2.

DIM N AS LONG
DIM product AS LONG
INPUT N
product = 1
WHILE N > 0
    digit = N MOD 10
    digit = product * digit
    N = N \ 10
WEND
PRINT digit
END

var N, product: longint;
    digit: integer;
begin
    readln(N);
    product := 1;
    while N > 0 do
    begin
        digit := N mod 10;
        digit := product * digit;
        N := N div 10;
    end;
    writeln(digit);
end.

#include <stdio.h>
int main()
{
    long int N, product;
    int digit;
    scant("%ld", &N);
    product = 1;
    while (N > 0)
    {
        digit = N % 10;
        digit = product * digit;
        N = N / 10;
    }
    printf("%d", digit);
}

алг
нач
    цел N, digit, product
    ввод N
    product := 1
    нц пока N > 0
        digit := mod(N, 10)
        digit := product * digit
        N := div(N, 10)
    кц
    вывод digit
кон

digit := product * digit;

product := product * digit;

writeln(digit);

writeln(product);

N = 30
DIM A(N) AS INTEGER
DIM, I, J, MAX AS INTEGER
FOR I = 1 TO N
    INPUT A(I)
NEXT I
...
END

const
    N = 30;
var
     a: array [1..N] of integer;
    i, j, max: integer;
begin
    for i:= 1 to N do
        readln(a[i]);
    ...
end.

#include <stdio.h>
#define N 30
void main () {
    int a[N];
    int i, j, max;
    for (i = 0; i < N; i++)
        scanf ("%d", &a[i]);
    ...
}

алг
нац
    цел N = 30
    целтаб а[1:N]
    цел i, j, max
    нц для i от 1 до N
        ввода a[i]
    кц
    ...
кон

Объявляем массив А из 30 элементов.
Объявляем целочисленные переменные I, J, MAX.
В цикле от 1 до 30 вводим элементы массива А с 1-го по 30-й.
...

шах := -1001; for i := 1 to N do
    if (a[i] < 0) and ((-1 * a[i]) mod 10 <> 3) and (a[i] > max) then
        max := a[i];
if max > -1001 then writeln(max) else writeln('He найдено');

max := -1001
нц для i от 1 до N
    если a[i] < 0 и mod(-l * a[i], 10) о 3 и a[i] > max
    то
        max := a[i]
    все
кц
если max > -1001
то
    вывод max
иначе
    вывод "He найдено"
все

МАХ = -1001 FOR I = 1 ТО N
    IF, А (I) < 0 AND (-1 * A(I) ) MOD 10 О 3 AND A(I) > MAX THEN
        МАХ = А(I)
    END IF NEXT I
IF MAX > -1001 THEN
PRINT MAX
ELSE
    PRINT "He найдено"
END IF

max = -1001;
for (i = 0; i < N; i++)
    if (a[i] < 0 && (-1 * a[i]) % 10 != 3 && a[i] > max)
        max = a[i];
if (max > -1001)
    printf("%d", max);
else
    printf("Не найдено");

DIM N, Min, Next_Min, Next_Next_Min, i, s AS Integer
Min = 1001: Next_Min = 1001: Next_Next_Min = 1001
INPUT N
REM Считываем количество измерений
FOR i = 1 to N
    INPUT s
    REM Считали очередное значение
    IF s < Min THEN
    REM обновление всех трёх минимумов
        Next_Next_Min = Next_Min: Next_Min = Min: Min = s
    ELSE
        IF (s < Next_Min) AND (s <> Min) THEN
        REM обновление 2-го и 3-го минимума
            Next_Next_Min = Next_Min Next_Min = s
        ELSE
            IF (s < Next_Next_Min) AND (s <> Min) AND (s <> Next_Min) THEN
            REM обновление 3-го минимума
                Next_Next_Min = s
            END IF
        END IF
    END IF
NEXT i
REM Вывод результата
IF Next_Next_Min < 1001 THEN
    PRINT Next_Next_Min
ELSE
    PRINT '#'
END IF

var N, Min, Next_Min, Next_Next_Min, i, s: integer;
begin
    Min := 1001; Next_Min := 1001;
    Next_Next_Min := 1001;
    ReadLn (N); {Считываем количество измерений}
    for i := 1 to N do
    begin
        ReadLn (s); {Считали очередное значение}
        if s < Min then
        {обновление всех трёх минимумов}
        begin
            Next_Next_Min := Next_Min;
            Next_Min := Min;
            Min := s;
        end
        else if (s < Next_Min) and (s <> Min) then
            begin
            {обновление 2-го и 3-го минимума}
                Next_Next_Min := Next_Min;
                Next_Min := s;
            end
            else if (s < Next_Next_Min) and (s <> Min) and (s <> Next_Min) then
            {обновление 3-го минимума}
                    Next_Next_Min := s;
    end; {Вывод результата}
    if Next_Next_Min < 1001 then
        WriteLn (Next_Next_Min)
    else WriteLn (’#’);
end.