<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>
0.025 Гб = 0.025*1024 Мб = 0.025*1024*1024 кб = 0.025*1024*1024*1024 байт = 26843546 байт.
45000 Гц и 16 бит означают, что каждую секунду снимается 45000 значений амплитуды. каждое кодируется 16 битами = 2 байтами, таким образом объем одной секунды = 45000*2 = 90000 байт.
Посчитаем сколько секунд у нас в файле:
26843546/90000 = 298 секунд = 4 мин 58 сек
Const
n=5;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
//генератор случайных чисел. Диапазон от 1 до 10.
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)+1;
write(a[i,j]," ");
end;
writeln();
end;
//Проверка условия и переприсвоение, если верно.
for i:=1 to n do
for j:=1 to n do
begin
if ((<span>(i+j) mod 2)=0) then
</span> a[i,j]:=a[1,2];
end;
//Вывод полученного массива.
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]," ");
end;
writeln();
end;
//Ожидание.
readln();
end.
Легко клавища ентер и пуск домой зашимаешь их и ввцдет слово гнездо но если перевести его на русский!
А в чем вопрос собственно? если вопрос что соответствует написанному то это его состояние, т.е. состояние объекта