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

Определите длину кратчайшего пути между пунктами А и F (при условии, что передвигаться можно только по построенным дорогам). В ответе укажите только число.

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

1) x1 ∧ x2 ∧ x3 ∧ x4 ∧ x5 ∧ x6 ∧ ¬x7 ∧ ¬x8

2) x1 ∧ x2 ∧ x3 ∧ ¬x4 ∧ x5 ∧ x6 ∧ ¬x7 ∧ ¬x8

3) ¬x1 v ¬x2 v x3 v x4 v x5 v ¬x6 v x7 v ¬x8

4) ¬x1 v ¬x2 v ¬x3 v x4 v x5 v x6 v x7 v x8

Символ «?» (вопросительный знак) означает ровно один произвольный символ. Символ «*» (звёздочка) означает любую последовательность символов произвольной длины, в том числе «*» может задавать и пустую последовательность.

В каталоге находятся шесть файлов:

sorry.docx rock.docx or.doc ork.dat port.doc ok.dat

Ниже представлено восемь масок. Сколько из них таких, которым соответствуют ровно четыре файла из данного каталога?

1) 1

2) 2

3) 3

4) 4

1. Складываются первая и вторая, затем вторая и третья, а далее третья и четвёртая цифры исходного числа.

2. Полученные три числа записываются друг за другом в порядке возрастания (без разделителей).

Пример. Исходное число: 7531. Суммы: 7 + 5 = 12; 5 + 3 = 8; 3 + 1 = 4. Результат: 4812.

Укажите наибольшее число, в результате обработки которого автомат выдаст число 2512.

Формулу из ячейки D3 скопировали в ячейку С2 так, что числовое значение ячейки С2 стало отличаться от числового значения ячейки D3. Каково стало числовое значение ячейки С2?

Бейсик

DIM k, s AS INTEGER
s = 0
к = 0
WHILE s <= 2048
    s = s + 64
    к = к + 1
WEND
PRINT к

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

нач
    цел k, s
    s : = 0
    k := 0
    нц пока s <= 2048
        s := s + 64
        k := k + 1
    кц
вывод k
KOH

Паскаль

var k, s : integer;
begin
    s : = 0 ;
    k : = 0;
    while s <= 2048 do
    begin
        s : = s + 64;
        k : = k + 1;
    end;
    write(k);
end.

Си

{
    int к, s;
    s = 0;
    к = 0;
    while (s <= 2048) {
        s = s + 64;
        к = к + 1;
    }
    printf("%d", k);
}

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

Бейсик

SUB F(n)
    PRINT n
    IF n <= 5 THEN
        F(n + 2)
        F(n + 3)
    END IF
END SUB

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

алг F(цел n)
нач
    вывод n, нс
    если n <= 5 то
        F(n + 2)
        F (n + 3)
    все
кон

Паскаль

procedure F(n: integer);
begin
    writeln (n);
    if n <= 5 then
    begin
        F(n + 2);
        F (n + 3)
    end
end

Си

void F(int n)
{
    printf("%d\n", n);
    if (n <= 5)
    {
        F(n + 2) ;
        F(n + 3) ;
    }
}

Чему равна сумма всех чисел, напечатанных на экране при выполнении вызова F(2)?

Например, если IP-адрес узла равен 131.111.255.131, а маска равна 255.255.192.0, то адрес подсети равен 131.111. 192.0.

Для узла с IP-адресом 175.182.179.170 адрес сети равен 175.182.160.0. Чему равен третий слева байт маски? Ответ запишите в виде десятичного числа.

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

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

Бейсик

INPUT а
b = 30
а = - а - 3 * b
IF а < b THEN
    с = b + 45
ELSE
    с = b - 50
END IF

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

ввод a
b := 30
a : = - a - 3 * b
если a < b
    то c := b + 45
    иначе c := b - 50
все

Паскаль

readln(a);
b := 30;
a:= - a - 3 * b;
if a < b then
    c := b + 45
else
    c := b - 50;

Си

scanf("%d", &а);
b = 30;
a= - a - 3 * b;
if (a < b)
    c = b + 45;
else
c = b - 50;

По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей, ведущих из города А в город М и проходящих через город Г?

111_{x + 2} — 56₈ = 11₁₀

Определите значение х. Ответ запишите в десятичной системе счисления.

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

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

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

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

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

((х ∈ Р) → (х ∈ Q)) → ¬(х ∈ А)

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

Бейсик

s = 0
n = 10
FOR i = 0 ТО n - 1
    s = s + A (i) +А(i+1)
NEXT i

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

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

Паскаль

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

Си

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

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

Бейсик

DIM X, L, М AS INTEGER
INPUT X
L = 0: М = 0
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

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

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

Паскаль

var x, L, M: integer;
begin
    readln(x);
    L := 0; M := 0;
    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 = 0;
    while (x > 0) {
        L = L + 1;
        if M < x % 10 {
            M = x % 10
        }
        x /= 10;
    }
    printf("%d\n%d", L, M);
}

Бейсик

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

FUNCTION F (x)
    F = 4 * (x + 2) * (x - 4)
END FUNCTION

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

нач
    цел a, b, t, М, R
    а := -20; b := 20
    М := a; R:= F(a)
    нц для t от а до b
        если F(t) < R то
            М := t; R := F(t)
        все
    кц
    вывод М
кон

алг цел F(цел х)
нач
    знач := 4*(х + 2)*(х ~ 4)
кон

Паскаль

var a, b, t, M, R: integer;
function F(x: integer): integer;
    begin
        F := 4 * (x + 2) * (x - 4) ;
    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);
end.

Си

int F(int х)
{
return 4 * (х + 2) * (х - 4);
}

void main()
{
    int a, b, t, M, R;
    a = -20; b = 20;
    M = a; R = F(a) ;
    for (t = a; t <= b; t++){
        if (F(t) < R) {
            M = t; R = F (t) ;
        }
    }
    printf("%d", M);
}

1. прибавь 1,

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

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

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

((x₁ ~ x₃) v (x₂ ~ x₄)) ∧ (¬(x₁ ~ x₃) v ¬(x₂ ~ x₄)) = 1

((x₂ ~ x₄) v (x₅ ~ x₇)) ∧ (¬(x₂ ~ x₄) v ¬(x₅ ~ x₇)) = 1

((x₅ ~ x₇) v (x₆ ~ x₈)) ∧ (¬(x₅ ~ x₇) v ¬(x₆ ~ x₈)) = 1

((x₆ ~ x₈) v (x₉ ~ x₁₀)) ∧ (¬(x₆ ~ x₈) v ¬(x₉ ~ x₁₀)) = 1

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

Часть 2.

CONST n = 4
count = 0
minimum = 0
FOR 1=1 ТО n
    INPUT x
    IF x mod 3=0 THEN
        count = count + 1
        IF x < minimum THEN
            minimum. = I
        END IF
    END IF
NEXT I
IF count > 0 THEN
    PRINT count
    PRINT minimum
ELSE
    PRINT "NO"
END IF

алг
нач
    цел n = 4
    цел i, х
    цел minimum, count
    count := 0
    minimum := 0
    нц для i от 1 до n
        ввод X
        если mod(x,3) = 0 то
            count := count + 1
            если х < minimum то
                minimum := i
            все
        все
кц
    если count > 0 TO
        вывод count, HC
        вывод minimum
    иначе
        вывод "NO"
    все
кон

const n = 4;
var i, x: integer;
var minimum, count: integer;
begin
    count := 0;
    minimum := 0;
    for i := 1 to n do
    begin
        read(x);
        if x mod 3=0 then
        begin
            count := count + 1;
            if x < minimum then
                minimum := i
        end
    end;
    if count > 0 then
    begin
    writeln(count);
    writeln(minimum)
    end
    else
        writeln('NO')
end.

linclude <stdio.h>
Idefine n 4

void main(void)
{
    int i, x;
    int minimum, count;
    count = 0;
    minimum = 0;
    for (i = 1; i <= n; i++)
    {
        scanf("%d" , &x);
        if (x % 3 == 0)
        {
        count++;
        if (х < minimum)
            minimum = i;
        }
    }
    if (count > 0)
    {
        printf("%d\n" , count);
        printf("%d\n", minimum);
    }
    else
        printf("NO\n");
}

minimum := 0;

minimum := 1001;

minimum = i;

minimum = х;

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

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

const
N = 30;
var
a: array [1..N] of integer;
i, j, k: 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, k;
    for (i =0; i < N; i++)
        scanf("%d", &a[i]);
...
}

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

к := 0;
for i := 1 to N - 1 do
    if ( (a [ i] + a[i + l]) mod 7 = 0) and (a[i] + a[i+l] < 0) then
        inc(k);
writeln(k);

k : = 0
нц для i от 1 до N - 1
    если mod(a[i] + a[i+l],7) = 0 и a[i] + a[i+l] < 0
    то
        k := k + 1
    все
кц
вывод k

K = 0
FOR I = 1 ТО N - 1
    IF (A(I) + A(I+1)) MOD 7=0 AND A(I) + A(I+1) < 0 THEN
        К = К + 1
    END IF
NEXT I
PRINT К

k = 0;
for (i = 0; i < N - 1; i++)
    if ((a[i] + a[i+1]) % 7 == 0 && a[i] + a[i+1] < 0)
        k++
printf("%d", k);

Записываем в переменную К начальное значение, равное 0. В цикле от первого элемента до предпоследнего находим остаток от деления суммы текущего и лсдеюущего элементов массива на 7. Если значение данного остатка равно 0 и сумма текущего и следующего элементов массива меньше 0, увеличиваем переменную К на единицу.
После завершения цикла выводим значение переменной К.

const s = 3; {требуемое расстояние между показаниями} var N: integer; a: array[0..s - 1] of real; {хранение показаний прибора} {k-e введенное число записываем в ячейку a[k mod 3]} а_: real; {ввод очередного показания} mn: real; {минимальное введенное число} {не считая 3 последних} m: real; {минимальное значение произведения} i: integer; begin readln(N); { Ввод первых трех чисел} for i := 1 to s do begin readln(a_); a[i mod s] := a_ end; {Ввод остальных значений, поиск минимального произведения} mn := 1001; m := 1000 * 1000 + 1; for i := s + 1 to N do begin readln(a_); if a[i mod s] < mn then mn := a[i mod s]; if a_ * mn < m then m := a_ * mn; a[i mod s] := a_ end; writeln(m) end.