var A:array[1..10] of integer;
i:integer;
s: integer;
begin
writeln('Массив А:');
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i] <> 0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, не равных нулю = ',s);
end.
Смотря в каком юникоде. Есть 31 битовый, есть 16 битовый. Тут похоже 16 битовый 47*16 = 752 Ответ: B
Привет.
Ответ вложен ниже. Пиши, если будут вопросы
Var
prod, i, k: integer;
begin
prod := 1;
readln(k);
for i := k to 2 * k do
prod := prod * i;
writeln(prod)
end.
#include <iostream>
#include <cmath>
using namespace std;
void main(){
double result ;<span>
int x,n=0,k = 2;</span><span>
cin >> x >> n;</span><span>
result = cos(pow(x, 1));
for (int i = 2;i<=n;++i)<span>
{
</span><span> if (i != k)</span><span>
result += cos(pow(x, i));</span><span>
else
</span><span> {
</span><span> result -= cos(pow(x, i));</span><span>
k += 3;</span><span>
}</span><span>
}
cout << "result = " << result;<span>
system("pause");
}</span></span></span>