Условие не совсем понятно, я решил, как понял лично я.
#include <iostream>
#include <string>
int main()
{
using namespace std;
//массив, представляющий рыбы в озере
string Fish[] = { "Sturgeon", "Trout", "Pink Salmon", "Herring",
"Cod", "Burbot", "Zander", "Bream", "Sea Bass" };
//массивы, представляющие рыбы, пойманные рыбаками
string Fisherman1[] = { "Burbot", "Bream", "Herring" };
string Fisherman2[] = { "Trout", "Burbot", "Sea Bass", "Herring", "Zander" };
string Fisherman3[] = { "Zander", "Pink Salmon", "Burbot", "Herring", "Trout" };
//количества элементов в массивах
int FishCount = sizeof(Fish) / sizeof(string);
int Fisherman1Count = sizeof(Fisherman1) / sizeof(string);
int Fisherman2Count = sizeof(Fisherman2) / sizeof(string);
int Fisherman3Count = sizeof(Fisherman3) / sizeof(string);
cout << "Fish caught by everyone:\n";
for (int i = 0; i < FishCount; ++i)
{
bool IsCaught = false;
for (int i1 = 0; i1 < Fisherman1Count; ++i1)
if (Fish[i] == Fisherman1[i1])
for (int i2 = 0; i2 < Fisherman2Count; ++i2)
if (Fish[i] == Fisherman2[i2])
for (int i3 = 0; i3 < Fisherman3Count; ++i3)
if (Fish[i] == Fisherman3[i3])
IsCaught = true;
if (IsCaught == true)
cout << Fish[i] << endl;
}
cout << endl;
cout << "Fish in the lake, but didn't get caught:\n";
for (int i = 0; i < FishCount; ++i)
{
bool IsCaught = false;
for (int i1 = 0; i1 < Fisherman1Count; ++i1)
if (Fish[i] == Fisherman1[i1])
{
IsCaught = true;
break;
}
else
for (int i2 = 0; i2 < Fisherman2Count; ++i2)
if (Fish[i] == Fisherman2[i2])
{
IsCaught = true;
break;
}
else
for (int i3 = 0; i3 < Fisherman3Count; ++i3)
if (Fish[i] == Fisherman3[i3])
{
IsCaught = true;
break;
}
if (IsCaught == false)
cout << Fish[i] << endl;
}
cout << endl;
return 0;
}
Var n,i:Integer;
begin
i:=0;
repeat
Readln(n);
if (n mod 2=0) and (n<>0) then
Inc(i);
until n=0;
Writeln;
Writeln(i);
readln;
<span>end.</span>
Если вам нужно на паскале, то ловите. Числа в массив выпадают рандомно. Диапазон (-50, 50):
var mass: Array[1..30] of real;
i, j: integer;
isE: boolean;
begin
randomize;
isE := true;
for i := 1 to 30 do begin
mass[i] := random (100) - 50;
end;
for i := 1 to 30 do begin
writeln('mass[', i, '] = ', mass[i]);
end;
for i := 1 to 30 do begin
for j := 1 to 30 do begin
if i <> j then begin
if mass[i] = mass[j] then begin
writeln('Массив не уникален!');
isE := false;
end;
end;
end;
end;
if isE = true then writeln('Массив уникален!');
<span>
end.</span>
Неважно, какой именно шар достали, важно, что выбрали один из 64 возможных. Поскольку 64 = 2⁶, информации в таком сообщении <u>6 бит.</u>
