- •Задача 1
- •Задача 6
- •Задача 17
- •Задача 20
- •Задача 26
- •Задача 48
- •Задача 51
- •Задача 52
- •Задача 70
- •Задача 84
- •Задача 85
- •Задача 86
- •Задача 87
- •Задача 88
- •Задача 89
- •Задача 90
- •Задача 91
- •Задача 92
- •Задача 93
- •Задача 94
- •Задача 95
- •Задача 96
- •Задача 97
- •Задача 98
- •Задача 99
- •Задача 100
- •Задача 101
- •Задача 102
- •Задача 103
- •Задача 104
- •Задача 105
- •Задача 106
- •Задача 107
- •Задача 108
- •Задача 109
- •Задача 110
- •Задача 111
- •Задача 112
- •Задача 113
- •Задача 114
- •Задача 115
- •Задача 116
- •Задача 117
- •Задача 118
- •Задача 119
- •Задача 120
Задача 98
program pr98;
{98. Даны две последовательности a1, a2,..., an и b1, b2,..., bn целых чисел.
Среди членов каждой последовательности нет повторяющихся чисел.
Построить пересечение последовательностей
(т.е. получить в каком-нибудь порядке все числа,
принадлежащие обеим последовательностям одновременно).}
uses
crt;
var
n,m,v,i,j:byte;
t:integer;
a,b,c: array [1..100] of integer;
begin
clrscr;
Write('Vvedite kolichestvo chlenov posledovatelnosti a: ');
Read(n);
Writeln('Vvedite posledovatelnost:');
for i:=1 to n do
begin
Write(i,'-i element: ');
Readln(a[i]);
end;
Write('Vvedite kolichestvo chlenov posledovatelnosti b: ');
Read(m);
Writeln('Vvedite posledovatelnost:');
for i:=1 to m do
begin
Write(i,'-i element: ');
Readln(b[i]);
end;
v:=0;
for i:=1 to n do
for j:=1 to m do
if a[i]=b[j] then
begin
inc(v);
c[v]:=a[i];
end;
if v<>0 then
for i:=1 to v-1 do
for j:= v downto i+1 do
if c[j]<c[j-1] then
begin
t:=c[j];
c[j]:=c[j-1];
c[j-1]:=t;
end;
Writeln('Ishodnye dannye:');
Writeln('Posledovatelnost a:');
for i:=1 to n do
begin
Write(i,'-i element: ');
Writeln(a[i]);
end;
Writeln('Posledovatelnost b:');
for i:=1 to m do
begin
Write(i,'-i element: ');
Writeln(b[i]);
end;
if v<> then
begin
Writeln('Poluchennaia posledovatelnost c:');
for i:=1 to v do
begin
Write(i,'-i element: ');
Writeln(c[i]);
end;
end
else
Writeln('Takih chisel net');
Readln;
end.
Задача 99
program pr99;
{99. Даны две последовательности a1, a2,..., an и b1, b2,..., bn целых чисел.
Среди членов каждой последовательности нет повторяющихся чисел.
Построить объединение данных последовательностей
(равные члены разных последовательностей должны входить только один раз).}
uses
crt;
var
n,m,v,i,j:byte;
t:integer;
fl:boolean;
a,b,c: array [1..100] of integer;
begin
clrscr;
Write('Vvedite kolichestvo chlenov posledovatelnosti a: ');
Read(n);
Writeln('Vvedite posledovatelnost:');
for i:=1 to n do
begin
Write(i,'-i element: ');
Readln(a[i]);
end;
Write('Vvedite kolichestvo chlenov posledovatelnosti b: ');
Read(m);
Writeln('Vvedite posledovatelnost:');
for i:=1 to m do
begin
Write(i,'-i element: ');
Readln(b[i]);
end;
v:=0;
for i:=1 to n do
begin
fl:=true;
for j:=1 to m do
if a[i]=b[j] then
fl:=false;
if fl then
begin
inc(v);
c[v]:=a[i];
end;
end;
for i:=1 to m do
begin
fl:=true;
for j:=1 to n do
if b[i]=a[j] then
fl:=false;
if fl then
begin
inc(v);
c[v]:=b[i];
end;
end;
if v<>0 then
for i:=1 to v-1 do
for j:= v downto i+1 do
if c[j]<c[j-1] then
begin
t:=c[j];
c[j]:=c[j-1];
c[j-1]:=t;
end;
Writeln('Ishodnye dannye:');
Writeln('Posledovatelnost a:');
for i:=1 to n do
begin
Write(i,'-i element: ');
Writeln(a[i]);
end;
Writeln('Posledovatelnost b:');
for i:=1 to m do
begin
Write(i,'-i element: ');
Writeln(b[i]);
end;
if v<>0 then
begin
Writeln('Poluchennaia posledovatelnost c:');
for i:=1 to v do
begin
Write(i,'-i element: ');
Writeln(c[i]);
end;
end
else
Writeln('Takih chisel net');
Readln;
end.