1. Напишите наибольшее целое число x, для которого истинно высказывание:1. Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X = 11). 2. Напишите наибольшее целое число x, для которого истинно высказывание:
НЕ (X чётное) И НЕ (X >= 7).
3. Проведено 9 запусков приведенной ниже программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(9, 5); (11, 2); (4, 5); (7, –2); (4, 4); (7, 7); (1, –1); (3, 9); (2, 2).
var s, t: integer;
begin
readln(s);
readln(t);
if (s 5)
then writeln('YES')
else writeln('NO')
end.
Сколько было запусков, при которых программа напечатала «YES»?
4. Проведено 9 запусков приведенной ниже программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(9, 10); (11, 5); (–2, 8); (9, 9); (2, 8); (–1, 3); (–4, 5); (10, 9); (4, –3).
var s, t: integer;
begin
readln(s);
readln(t);
if (s > 8) and (t > 8)
then writeln('YES')
else writeln('NO')
end.
Сколько было запусков, при которых программа напечатала «YES»?
5. В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» – символ «&». В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет. Сколько страниц (в тысячах) будет найдено по запросу фрегат?
Запрос Страниц (тыс.)
фрегат & эсминец 500
фрегат | эсминец 4500
эсминец 2500
6. Символом F обозначено одно из указанных ниже логических выражений от трех И НЕ (X >= 11).
2. Напишите наибольшее целое число x, для которого истинно высказывание:
НЕ (X чётное) И НЕ (X >= 7).
3. Проведено 9 запусков приведенной ниже программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(9, 5); (11, 2); (4, 5); (7, –2); (4, 4); (7, 7); (1, –1); (3, 9); (2, 2).
var s, t: integer;
begin
readln(s);
readln(t);
if (s 5)
then writeln('YES')
else writeln('NO')
end.
Сколько было запусков, при которых программа напечатала «YES»?
4. Проведено 9 запусков приведенной ниже программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(9, 10); (11, 5); (–2, 8); (9, 9); (2, 8); (–1, 3); (–4, 5); (10, 9); (4, –3).
var s, t: integer;
begin
readln(s);
readln(t);
if (s > 8) and (t > 8)
then writeln('YES')
else writeln('NO')
end.
Сколько было запусков, при которых программа напечатала «YES»?
5. В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» – символ «&». В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет. Сколько страниц (в тысячах) будет найдено по запросу фрегат?
Запрос Страниц (тыс.)
фрегат & эсминец 500
фрегат | эсминец 4500
эсминец 2500
6. Символом F обозначено одно из указанных ниже логических выражений от трех аргументов: X, Y, Z. Дан фрагмент таблицы истинности выражения F. Какое выражение соответствует F?
X Y Z F
0 1 0 1
1 0 1 0
1 1 0 0
1) ¬X ∧ Y ∧ ¬Z 2) X ∨ ¬Y ∨ Z
3) X ∧ ¬Y ∧ Z 4) ¬Х ∨ Y ∨ ¬Z

Показать ответ

Ответ:

никеда

25.01.2021 09:38

Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)

    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i

    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub

0,0(0 оценок)

Ответ:

ТвояЗайка111

03.06.2022 10:09

Рассматривая различные прямоугольники и подсчитывая в них число поворотов P, можно прийти к следующему алгоритму. Для любого натурального k получаем:
$P=\begin {cases} 0, \ min(M,N)=1 \\4k-2, \ min(M,N)=2k, \, M=N, \, k \in \mathbb N \\ 4k-1, \ min(M,N)=2k, \, M \neq N, \, k \in \mathbb N \\ 4k, \ min(M,N)=2k+1, \, M=N, \, k \in \mathbb N \\ 4k+1, \ min(M,N)=2k+1, \, M \neq N, \, k \in \mathbb N \\ \end {cases}$

var
M, N, k, mn, P: integer;
f: Text;

begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, M, N);
Close(f);
if M < N then mn := M else mn := N;
if mn = 1 then P := 0
else begin
    k := mn div 2;
    if mn mod 2 = 0 then
      if M = N then P := 4 * k - 2
      else P := 4 * k - 1
    else
    if M = N then P := 4 * k
    else P := 4 * k + 1
end;
Assign(f, 'output.txt');
Rewrite(f);
Writeln(f, P);
Close(f)
end.

0,0(0 оценок)

Популярные вопросы: Информатика