Ответ: а)3
Решение:
i=1
A[2*1-1]:=1; (A[1])
A[2*1]:=1; (A[2])
__________________
i=2
A[2*2-1]:=2; (A[3])
A[2*2]:=4; (A[4])
__________________
i=3
A[2*3-1]:=3; (A[5])
A[5]=3
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,1);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln(a.Rows.Any(x->x.All(x->x=0))?'Да':'Нет')
end.
<u>Примеры</u>
Количество строк в массиве: 10
Количество столбцов в массиве: 4
*** Исходный массив [10,4] ***
0 1 1 1
1 0 0 1
1 0 0 1
1 0 1 1
1 1 0 1
1 0 1 1
1 0 1 0
0 0 0 0
1 1 1 1
1 0 0 1
----------------
Да
Количество строк в массиве: 8
Количество столбцов в массиве: 5
*** Исходный массив [8,5] ***
1 1 0 0 1
1 1 0 1 0
1 0 0 0 0
0 0 0 1 1
1 0 1 1 1
1 0 0 1 1
1 1 0 1 1
0 1 1 1 0
--------------------
Нет
1)700*1024=716800Кбайт
2)716800:2048=350 учебников
program n_1;
var S:integer;
begin
S:=(sqr(2)+sqr(4)+sqr(6)+sqr(8)+sqr(10));
writeln(S);
end.
sqr(i) - sqr это возведение числа во вторую степень, а i само число
Ответ:
#include <iostream>
using namespace std;
int main()
{
int a[4];
int i, p;
setlocale(LC_ALL, "russian");
cout << "Введите четыре числа: ";
for (i = 0; i < 4; i++) {
cin >> a[i];
}
p = 1;
for (i = 0; i < 4; i++) {
p *= a[i];
}
if (p > 0)
cout << "\nПроизведение положительно";
else if (p < 0)
cout << "\nПроизведение отрицательно";
else
cout << "\nПроизведение равно 0";
}