Ответы на вопрос:
1. ТОПОР и ЛЕЙКА
2. ПРОРУБЬ
3. ЁЖ
4. КОПЕЙКА РУБЛЬ БЕРЕЖЁТ
Объяснение:
Сначала расшифруем что написано.
1. ТОПОР и ЛЕЙКА
2. ПРОРУБЬ
3. ЁЖ
Составим соответствие
1-К
2-О
3-П
4-Е
5-Ё
6-А
7-Р
8-У
9-Б
10-Л
11-Ь
12-Ё
13-Ж
14-Т
И расшифруем пословицу
1 2 3 4 5 1 6 7 8 9 10 11 9 4 7 4 13 12 14
КОПЕЙКА РУБЛЬ БЕРЕЖЁТ
const N = 7;
const MAX = 10;
var a,b,c: array [1..N] of integer;
var d: array [1..N] of boolean;
var i,j,k,flag: integer;
begin
// Автозаполнение
randomize();
for i:=1 to N do
begin
a[i]:=random(MAX+1);
b[i]:=random(MAX+1);
c[i]:=random(MAX+1);
d[i]:=false;
end;
// Вывод на экран
write('Массив a: ');
for i:=1 to N do write(a[i],' ');
write(сhr(10),'Массив b: ');
for i:=1 to N do write(b[i],' ');
write(сhr(10),'Массив c: ');
for i:=1 to N do write(c[i],' ');
// Поиск элементов, принадлежащих всем 3м массивам
write(сhr(10),'Элементы, принадлежащие всем трем массивам: ');
for i:=1 to N do
begin
flag:=0;
// Следующий цикл проверяет, есть ли элемент a[i]
// в массиве b.
for j:=1 to N do
begin
if (a[i]=b[j]) then
begin
flag:=flag+1;
break;
end;
end;
// Следующий цикл проверяет, есть ли элемент a[i]
// в массиве c.
for j:=1 to N do
begin
if (a[i]=c[j]) then
begin
flag:=flag+1;
break;
end;
end;
// Если элемент найдет во всех трех массивах, в массиве d
// указывается, что данный элемент уже найден
if (flag=2) then d[i]:=true;
// В следующем цикле проверяется, был ли уже в массиве a
// элемент a[i]. Если был, и если он есть во всех трех массивах
// (условие d[k]), то флаг обнуляется и элемент не выводится
if (i>0) and (flag=2) then
for k:=i-1 downto 1 do
if (a[k]=a[i]) and (d[k]) then flag:=0;
if (flag=2) then write(a[i],' ');
end;
end.
Популярно: Информатика
-
Uliana700321.12.2022 10:53
-
эрж116.06.2022 07:10
-
alievaaytan1702.12.2021 19:23
-
SuperSem200304.03.2020 09:20
-
33даник74711.11.2021 00:54
-
ioiaaea3309.06.2023 06:23
-
bombila66319.11.2022 14:11
-
ккккtttttttyyyyyy17.09.2020 00:12
-
Diana45111130.04.2020 14:35
-
Gunterio18.04.2023 01:16