<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(1,99,2).Select(x->x*x).Sum)
end.
<u>Результат</u>
166650
Ответ:
(C++)
Объяснение:
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
cout << "Прелестный денек";
system("Pause");
return 0;
}
1.
1)1 = 3*1024*8/3072 = 8 бит объем одного символа
2) N = 2^8 = 256 символов в алфавите
2
1)Так как N=64=2^6, то I = 6 бит
2) 7200*8/6 = 9600 символов в тексте
<span>3) 9600/4/40 = 60 символов в строке </span>
Все же логично, просто разделим 900 на 150, получим 6.
6 бит
Ответ:
program array3;
const
L = 1;
H = 10;
var
n, i, s: Integer;
A1, A2, A3: array [L..H] of Integer;
begin
Randomize;
for i := L to H do begin
A1 [i] := Random (10);
A2 [i] := Random (10);
A3 [i] := Random (10);
end;
WriteLn ('Первый массив:');
for i := L to H do
Write (A1 [i], ' ');
WriteLn;
WriteLn ('Второй массив:');
for i := L to H do
Write (A2 [i], ' ');
for i := L to H do
if (i < 2) or (i > 7) then
A3 [i] := A1 [i]
else
A3 [i] := A2 [i];
WriteLn;
WriteLn ('Результирующий массив:');
for i := L to H do
Write (A3 [i], ' ');
WriteLn;
ReadLn;
end.
Объяснение:
const
L = 1;
H = 10;
устанавливаются размерности для массивов, здесь можно их изменить