Const n=6; m=4;
var
a:array[1..n,1..m] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
c:=a[3,j]; a[3,j]:=a[5,j]; a[5,j]:=c;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
25 4 33 17
19 23 42 9
36 40 1 48
21 44 13 18
38 29 8 7
24 13 5 13
Полученный массив:
25 4 33 17
19 23 42 9
38 29 8 7
21 44 13 18
36 40 1 48
24 13 5 13
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>
Размер файла = 5120*24 бит.
Скорость второго соединения = (размер файла)/(15сек) =
= (5120*24 бит)/(15 сек.) = 512*10*8*3/(5*3) (бит/сек.) =
= (512*2*8) бит/сек. = 8192 бит/сек.
Ответ. 8192.