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

Сколько существует таких маршрутов из А в Z, которые проходят через пять и более населённых пунктов? Пункты А и Z при подсчёте учитывайте. Два раза проходить через один пункт нельзя.

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

1) (X ~ Y) v (Z v 1)

2) (X ~ Y) v (Z v Y)

3) (X ~ Y) v (Z v X)

4) (X ~ Y) v (Z ∧ 0)

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

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

do.doc go.dat loos.dll good.docx food.djvu mood.dd

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

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

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

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

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

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

Компьютер Тани может начать ретрансляцию данных, не раньше чем им будут получены первые 2 Мбайт этих данных. Каков минимально возможный промежуток времени (в секундах) с момента начала скачивания Таней данных до полного их получения Сергеем? В ответе укажите только число, слово «секунд» или букву «с» добавлять не нужно.

Бейсик

DIM k, s, d AS INTEGER
INPUT d
s = 0
k = 0
WHILE k < 200
    s = s + 64
    k = k + d
WEND
PRINT s

Паскаль

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

Си

{
    int k, s, d;
    scant("%d", &d);
    s = 0;
    k = 0;
    while (k < 200) {
        s = s + 64;
        k = k + d;
    }
    printf("%d", s);
}

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

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

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

F(1) = 1

F(2) = 1

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

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

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

Например, если IP-адрес узла равен 207.123.255.131, а маска равна 255.240.0.0, то адрес подсети равен 207.112.0.0.

По заданным IP-адресу узла и маске определите третий слева байт адреса сети. IP-адрес узла: 155.102.133.70. Маска: 255.255.240.0. Ответ запишите в виде десятичного числа.

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

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

Бейсик

а = 300
b = 200
b = 900 - (а - 5 * b)
IF а < b THEN
    с = b - 10 * а
ELSE
    с = а + 2 * b
END IF

Паскаль

а := 300;
b := 200;
b := 900 - (а - 5 * b) ;
if а < b then
    с := b - 10 * а
else
    с : = а + 2 * b;

Си

а = 300;
b = 200;
b = 900 - (а - 5 * b) ;
if (а < b)
    с = b - 10 * а;
else
    с = а + 2 * b;

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

а := 300
b := 200
b := 900 - (а - 5 * b)
если а < b
    то с := b - 10 * а
    иначе с := а + 2 * b
все

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

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

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

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

Укажите наибольшую возможную длину промежутка А, для которого формула ((х ∈ Р) → (X ∈ Q)) ∧ (х ∈ А)

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

Бейсик

s = 0
n = 10
FOR i = 0 TO n - 1
    s = s + 2 * A(i) + A(i+1)
NEXT i

Паскаль

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

Си

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

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

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

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

Бейсик

DIM X, L, М AS INTEGER
INPUT X
L = 0; M = 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
        если М > mod (х,10) то
            М := mod (х,10)
        все
        х := div (х,10)
    кц
        вывод L, нс, М
кон

Бейсик

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

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

Паскаль

var a, b, t, R: integer;
function F(x: integer): integer;
begin
    F := -3 * (x + 2) * x;
end;
begin
    a := - 10; b :=10;
    R := F (a);
    for t := a to b do
    begin
        if (F(t) < R) then begin
            R := F(t) ;
        end;
    end;
write(R);
end.

Си

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

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

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

нач
    цел a, b, t, R
    а := -10; b := 10
    R := F(а)
    нц для t от а до b
        если F(t) < R то
            R := F(t)
        все
    кц
    вывод R
кон
алг цел Р(цел х)
нач
    знач := -3 * (х + 2) * х
кон

1. прибавь 1,

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

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

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

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

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

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

((x₆ ~ x₇) v (x₄ ~ x₅)) ∧ (¬((x₆ ~ x₇) → (x₄ ~ x₃))) = 1

((x₁ ~ x₁) ∧ x₁ = 1

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

Часть 2.

DIM N AS LONG
INPUT N
max digit = 0
WHILE N > 0
    digit = N \ 10
    IF digit > max digit THEN
        max digit = digit
    END IF
    N = N \ 10
WEND
PRINT digit
END

var N: longint;
иdigit, max digit: integer;
begin
    readln(N);
    max digit := 0;
    while N > 0 do
    begin
        digit := N div 10;
        if digit > max digit then
            max digit := digit;
        N := N div 10; end;
    writeln(digit);
end.

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

алг
нач
    цел N, digit, max digit
    ввод N
    max digit := 0
    нц пока N > 0
        digit := div(N, 10)
        если digit > max digit то
            max digit := digit
        все
        N := div(N, 10)
    кц
    вывод digit
кон

digit := N div 10;

digit := N mod 10;

writeln(max digit);

N = 30
DIM A(N) AS INTEGER
DIM I, J, MIN 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, min: 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, min;
    for (i = 0; i < N; i++)
        scanf("%d", &a[i]);
    ...
}

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

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

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

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

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

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

DIM N, cnt, i, t, prev, Max AS INTEGER Max = 1 cnt = 1 INPUT NREM Считали количество измерений FOR i = 1 TO N INPUT tREM Считали очередное значение IF i = 1 THEN prev = t ELSE IF prev >= t THEN cnt = cnt + 1 ELSE IF cnt > Max THEN Max = cntREM Обновление максимальной длины cnt = 1 END IF END IF prev = t END IF NEXT iIF cnt > Max THEN Max = cntREM Обработка «хвоста» последовательности END IFPRINT Max

var N, cnt, i, t, prev, Max: integer; begin Max := 1; cnt := 1; ReadLn(N); {Считываем количество измерений} for i := 1 to N do begin ReadLn(t); {Считали очередное значение} if i = 1 then prev := t else if prev >= t then cnt := cnt + 1 else begin if cnt > Max then Max := cnt; {Обновление максимальной длины} cnt := 1; end; prev := t; end; if cnt > Max then Max := cnt; {Обработка «хвоста» последовательности} WriteLn (Max); end.