#inclued<bits/stdc++.h>
using namespace std;
int main()
{int d,m;
cin>>d>>m;
if (m==1)
{if (d>=20)
cout<<"vodoleey";
else cout<<"kozerog";}
if (m==2)
{if (d>=19)
cout<<"ribi";
else cout<<"vodoley";}
if (m==3)
{if (d>=21) cout<<"oven";
else cout<<"ribi";}
if (m==4)
{if (d>=20)
cout<<"telec";
else cout<<"oven";}
if (m==5)
{if (d>=21)
cout<<"blizneci";
else cout<<"telec";}
if (m==6)
{if (d>=22)
cout<<"rac";
else cout<<"blizneci";}
if (m==7)
{if (d>=23)
cout<<"lev";
else cout<<"rac";}
if (m==8)
{if (d>=23)
cout<<"deva";
else cout<<"lev";}
if (m==9)
{if (d>=23) cout<<"vesi";
else cout<<"deva";}
if (m==10)
{if (d>=23)
cout<<"scorpion";
else cout<<"vesi";}
if (m==11)
{if (d>=23)
cout<<"strelec";
else cout<<"scorpion";}
if (m==12)
{if(d>=22)
cout<<"kozerog";
else cout<<"strelec";}
return 0;
}
program Prog;
var i, x, Proiz, MinEl: Integer;
arr: array[1..8] of Integer;
begin
Proiz:=1;
MinEl:=13;
randomize;
write('Введите X: ');
read(x);
// запоолнение, вычисление мин. эл., и умножения
for i:=1 to 8 do begin
arr[i]:=random(12)+2;
Proiz:=Proiz*arr[i];
if arr[i]<MinEl then
MinEl:=arr[i]
end;
// вывод всего массива
for i:=1 to 8 do
write(arr[i], ' ');
writeln;
// вывод нужных элементов
writeln('Минимальный элемент: ', MinEl);
writeln('Произведение элементов: ', Proiz);
writeln('Элементы, равные X: ');
for i:=1 to 8 do
if arr[i]=x then
write(arr[i], ' ')
end.
Поделитесь своими знаниями, ответьте на вопрос:
Что сделал билл гейтс для информатики? опишите кратко (буквально 2-3 предложения)