#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)
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)
cout<<"deva";
else cout<<"lev";}
if (m==9)
{if (d>=23) cout<<"vesi";
else cout<<"deva";}
if (m==10)
cout<<"scorpion";
else cout<<"vesi";}
if (m==11)
cout<<"strelec";
else cout<<"scorpion";}
if (m==12)
{if(d>=22)
cout<<"kozerog";
else cout<<"strelec";}
return 0;
}
1) Не достаточно информации2)Program help1;Uses Crt;Var a : Array[1..3, 1..3] of Integer; i, j, m : Integer;BeginClrScr;For i := 1 to 3 do For j := 1 to 3 do Begin Write('Введи a[', i, ', ', j, ']: '); Readln(a[i, j]); End;If a[1, 1] > 0 then m := 4;If a[1, 1] < 0 then m := 7;For i := 1 to 3 do For j := 1 to 3 do a[i, j] := a[i, j] * m;End.3)Program help2;Uses Crt;Var s : String; n, i : Byte;BeginClrScr;Write('Введи строку: ');Readln(s);n := 0;For i := 1 to Length(s) do if s[i] = '5' then inc(n);Write('Цифра 5 встречается ', n, ' раз');End.
#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;
}
1) Не достаточно информации
2)
Program help1;
Uses Crt;
Var a : Array[1..3, 1..3] of Integer;
i, j, m : Integer;
Begin
ClrScr;
For i := 1 to 3 do
For j := 1 to 3 do
Begin
Write('Введи a[', i, ', ', j, ']: ');
Readln(a[i, j]);
End;
If a[1, 1] > 0 then
m := 4;
If a[1, 1] < 0 then
m := 7;
For i := 1 to 3 do
For j := 1 to 3 do
a[i, j] := a[i, j] * m;
End.
3)
Program help2;
Uses Crt;
Var s : String;
n, i : Byte;
Begin
ClrScr;
Write('Введи строку: ');
Readln(s);
n := 0;
For i := 1 to Length(s) do
if s[i] = '5' then
inc(n);
Write('Цифра 5 встречается ', n, ' раз');
End.