Скрин с результатом работы программы прикрепил.
var a:array[1..10] of integer;
b:array[1..10] of integer;
c:array[1..10] of integer;
i:integer;
begin
write ('Введите массив 1: ');
for i:=1 to 10 do
read (a[i]);
WRITELN;
write ('Введите массив 2: ');
for i:=1 to 10 do
read (b[i]);
WRITELN;
WRITELN;
write ('Массив 3: ');
for i:=1 to 10 do
begin
if i mod 2 <> 0 then c[i]:=b[i+1];
if i mod 2 = 0 then c[i]:=a[i-1];
write (c[i],' ');
end;
end.
Записал вашу формулу так же , как и в условии. Если что-то не так , просто расставьте скобки.
#include <iostream>
#include <cmath>
using namespace std;
void main()
{
<span> setlocale(0, "");
</span><span> int i;</span><span> float x[6] = {};</span><span>
for (int j = 0;j < 6;++j)
</span><span> {</span><span>
cout <<endl<< "Введите аргумент i" << endl;</span><span>
cin >> i;
</span><span> x[j] = sin(i) - (1 / 2)*cos(i) + 1;
</span><span> cout << " " << x[j];</span><span>
}
</span><span> system("pause");
</span>}<span>
</span>
Смотря в каком юникоде. Есть 31 битовый, есть 16 битовый. Тут похоже 16 битовый 47*16 = 752 Ответ: B
Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
<span>end. </span>
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.