Условие не совсем понятно, я решил, как понял лично я.
#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 a:array[1..8] of integer;
i: integer;
begin
for i:=1 to 8 do
begin
a[i]:=random(100);
writeln (i,' элемент: ',a[i])
end
end.
//Pascal ABC.NET v3.1 сборка 1172
//Вариант без ввода переменных, выводится системная дата
Uses
system;
var
t: DateTime;
begin
t := DateTime.now;
{если не работает, попробуйте t:=CurrentDateTime;}
writeln('*************');
writeln('* ', t.day, '.', t.month, '.', t.year, ' *');
writeln('*************');
end.
Пример вывода:
*************
* 10.4.2016 *
*************
//Вариант со вводом переменных
Var
s,c:string;
i:integer;
begin
s:='* ';
write('Введите день:'); readln(c);
if length(c)=1 then c:='0'+c;
s:=s+c+'.';
write('Введите месяц:'); readln(c);
if length(c)=1 then c:='0'+c;
s:=s+c+'.';
write('Введите год:'); readln(c);
s:=s+c+' *';
for i:=1 to length(s) do
write('*');
writeln;
writeln(s);
for i:=1 to length(s) do
write('*');
end.
Пример ввода:
Введите день:10
Введите месяц:4
Введите год:2016
Пример вывода:
**************
* 10.04.2016 *
**************
Https://www.imgonline.com.ua/gif-animation.php вот сайт
Var A,i,k:byte;
Begin
Write('Простые двузначные числа:');
For A:= 10 to 99 do
Begin
k:=0;
For i:= 2 to A div 2 do
if A mod i = 0 then k:=k+1;
if k = 0 then Write(' ',A)
End
End.
Результат работы программы:
Простые двузначные числа: 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
