Const
nn=50;
var
i,j,n:integer;
a:array[1..nn,1..nn] of integer;
begin
Write('n='); Read(n);
for i:=1 to n do begin
for j:=1 to n do
if (i+j) mod 2 =0 then Write('0') else Write('1');
Writeln
end
end.
Тестовое решение
n=8
01010101
10101010
01010101
10101010
01010101
10101010
01010101
10101010
Количество информации переведем в биты:
556750*8=4454000
Для определения времени наидем отношение количества информации к скорости передачи
445400.3275=1360 секунд.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Begin
var ar:=ReadArrInteger(n);
writeln('Сумма положительных=',ar.Where(x -> x>0).sum);
writeln('Сумма сумма отрицательных=',ar.Where(x -> x<0).sum);
end.
Пример ввода:
1
-2
3
4
-5
-6
7
8
9
10
Пример вывода:
Сумма положительных=42
Сумма сумма отрицательных=-13
Перевод из двоичной системы в восьмеричную очень прост. Влево и вправо от запятой (десятичной точки) двоичное число разбивается на группы, содержащие три разряда (триАды). А затем каждая триада заменяется соответствующей восьмеричной цифрой.
<span>1 100 101(2) = 145(8)</span>