Const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(90);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (a[i] mod 2 <> 0)and(a[i] mod 3 = 0) then s:=s+a[i];
writeln('s=',s);
end.
Пример:
Исходный массив:
66 14 74 6 15 65 42 37 34 0 63 75 69 17 50 15 78 14 7 35
s=237
#include <iostream>
#include <cmath>
using namespace std;
//Функция вычисления факториала
long double fact(int N) {
if(N < 0)
return 0;
if (N == 0)
return 1;
else
return N * fact(N - 1);
}
int main() {
int k;
double x, S;
cout << "k = "; cin >> k;
cout << "x = "; cin >> x;
for (int n = 1; n <= k; n++)
S += (pow(-1,(n+1)) * pow(x,(2*n-1)))/fact(2*n-1);
cout << "S = " << S << endl;
system("pause");
return 0;
}
Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Точно также, как с тем словом. Каждый символ - это 1 байт.
В битах - умножаешь 500 на 8.
Вроде бы 10011 :)))))))))))))))))))))))))))))))))))))))