Вавтоматизированной информационной системе содержаться анкетные данные сотрудников учреждения.
в массиве y(8) содержаться года рождения сотрудников,
в массиве p(8) – сведения о поле,
в массиве s(8) – сведения о семейном положении.
элемент массива y с номером n – год рождения сотрудника n,
элемент массива p c номером n – сведения о поле сотрудника n,
элемент массива s c номером n – сведения о семейном положении сотрудника n.
p(n) = 0, сотрудник n женского пола
p(n) = 1, сотрудник n мужского пола
s(n) = 0, сотрудник n холост (не замужем)
s(n) =1, сотрудник n женат (замужем)
определить: количество холостых мужчин и количество незамужних женщин.
1)
#include <iostream>
using namespace std;
int main()
{
int g, k, n=64;
for (g=0; g<=n; g++)
{
for (k=0; k<=n/2; k++)
{
if (2*g + 4*k == n)
{
printf ("Gycu - %d. \nKpoluk - %d.\n\n", g, k);
}
}
}
return 0;
}
2)#include <iostream>
using namespace std;
long double fact(int N)
{
if(N < 0)
return N;
if (N == 0)
return 1;
else
return N * fact(N - 1);
}
int main()
{
int N, M;
setlocale(0,"");
cout << "N=";
cin >> N;
cout<<"M=";
cin>>M;
cout<<"N!-M!=" << fact(N)-fact(M) << endl << endl;
return 0;
}
i,NOD,NOK,k,N:integer;
Begin
Write('N = ');ReadLn(N);
Write('Введите числа (',N,' шт.): ');
For i:= 1 to N do
Read(A[i]);
{Поиск НОК}
NOK:=abs(A[1]);
For i:= 2 to N do
if abs(A[i])<NOK then NOK:=abs(A[i]);
if NOK = 0 then NOK:=1;
Repeat
k:=0;
For i:= 1 to N do
if A[i] mod NOK = 0 then k:=k+1;
NOK:=NOK-1;
Until k=N;
WriteLn('NOK = ',NOK+1);
{Поиск НОД}
NOD:=A[1];
For i:= 2 to N do
if abs(A[i])>NOD then NOD:=A[i];
Repeat
k:=0;
For i:= 1 to N do
if NOD mod A[i] = 0 then k:=k+1;
NOD:=NOD+1;
Until k=N;
WriteLn('NOD = ',NOD-1)
End.