Решите сколько найдите значения выражений: 1) (1 v 1) v (1 v 0) 2) ((1 v 0) v 1) v1) 3) (0 & 1) & 1 4) 1 & (1 & 1) & 1 5) ((1 v 0) & (1 & 1)) & (0 v 1) 6) ((1 & 1) v 0) & (0 v 1) 7) ((0 & 0) v 0) & (1 v 1) 8) (a v 1) v (b v 0) 9) ((1 & a) v (b & 0)) v 1 10) 1 v a & 0

👇

Ответ:

IrinaEfremova2003

16.05.2021

∨ — логическое или, 0 будет только в случае 0 ∨ 0, в остальных случаях 1.
& — логическое и, 1 будет только в случае 1 & 1, в остальных случаях 0.
Если нет скобок, сначала выполняется &, потом ∨.

1) (1 ∨ 1) ∨ (1 ∨ 0) = 1 ∨ 1 = 1
2) ((1 ∨ 0) ∨ 1) ∨ 1 = (1 ∨ 1) ∨ 1 = 1 ∨ 1 = 1
3) (0 & 1) & 1 = 0 & 1 = 0
4) 1 & (1 & 1) & 1 = 1 & 1 & 1 = 1
5) ((1 ∨ 0) & (1 & 1)) & (0 ∨ 1) = (1 & 1) & 1 = 1 & 1 = 1
6) ((1 & 1) ∨ 0) & (0 ∨ 1) = (1 ∨ 0) & 1 = 1 & 1 = 1
7) ((0 & 0) ∨ 0) & (1 ∨ 1) = (0 ∨ 0) & 1 = 0 & 1 = 0
8) (A ∨ 1) ∨ (B ∨ 0) = 1 ∨ B = 1
9) ((1 & A) ∨ (B & 0)) ∨ 1 = (A ∨ 0) ∨ 1 = A ∨ 1 = 1
10) 1 ∨ A & 0 = 1 ∨ (A & 0) = 1 ∨ 0 = 1

4,7(33 оценок)

Открыть все ответы

Ответ:

zska25

16.05.2021

Эту колдунью зовут Кодировка КОИ-8. Таблица кодирования: А-Ю, Б-А, В-Б, Г-Ц, Д-Д, Е-Е, Ж-Ф, З-Г, И-Х, Й-И, К-Й, Л-К, М-Л, Н-М, О-Н, П-О, Р-П, С-Я, Т-Р, У-С, Ф-Т, Х-У, Ц-Ж, Ч-В, Ш-Ь, Щ-Ы, Ъ-З, Ы-Ш, Ь-Э, Э-Щ, Ю-Ч, Я-Ъ, Ё-╦ Таблица построена так. Слева стоят буквы по русскому алфавиту, а справа русские буквы, соответствующие английскому алфавиту. @ - Ю (код 40), A - А (41), B - Б, C - Ц, D - Д, E - E, F - Ф, и т.д. Буква Ё - 33-ья в алфавите, она выбивается из ряда в 32 буквы, поэтому превращается не в букву, а в элемент псевдографики. И еще меняется регистр, 1-ая буква маленькая, остальные большие.

4,6(15 оценок)

Ответ:

lizayka2001

16.05.2021

1. Программа, создающая файл

var
f:file of integer;
i,k:integer;
begin
Randomize;
Assign(f,'in.dat'); Rewrite(f);
for i:=1 to 20 do begin
    k:=Random(99)+1;
    Write(f,k)
    end;
Close(f)
end.

Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13

2. Основная программа

uses Crt;
const
nn=100;
var
i,j,k,n:integer;
fin,fout:file of integer;
a:array[1..nn] of integer;
dub:boolean;
begin
ClrScr;
Assign(fin,'in.dat'); Reset(fin);
Read(fin,k);
if not eof(fin) then begin
    n:=1; Write(k,' '); a[n]:=k
    end
else n:=0;
while (not eof(fin)) and (n<=nn) do begin
    Read(fin,k); Write(k,' ');
    j:=1; dub:=false;
    while (j<=n) and (not dub) do begin
      dub:=(a[j]=k); Inc(j);
      end;
    if not dub then begin Inc(n); a[n]:=k; Inc(j) end
    end;
Writeln;
Close(fin);
for i:=1 to n do Write(a[i],' ');
Writeln; Writeln('n=',n);
Assign(fout,'out.dat'); Rewrite(fout);
Write(fout,n); Close(fout);
ReadKey
end.

Тестовое решение:
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18

В качестве бонуса - решение этой же задачи в современной системе программирования PascalABC.NET.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var fin,fout:file of integer;
Reset(fin,'in.dat');
var k:integer;
var a:=new integer[fin.FileSize];
var n:=0;
while not eof(fin) do begin
    Read(fin,k); a[n]:=k; Inc(n)
    end;
Close(fin);
a.Println;
var b:=a.ToHashSet;
b.Println; Writeln('n=',b.Count)
end.

Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18

И вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? Чтобы показать, "как все это сложно"?

4,7(67 оценок)

Это интересно:

Кулинария-и-гостеприимство

15.08.2021

Как приготовить змею: рецепты и рекомендации...

Образование-и-коммуникации

07.05.2023

Прощайте спам! Как избавиться от ненужной почты в ящике...

Образование-и-коммуникации

06.10.2021

Как рисовать вертолет: советы от профессионалов...

Здоровье