Канал у вас что-то уж совсем узенький :)
1. Способ с архивированием.
Архивация: 18 с.
Передача: 4*1024*1024*8:220~=152520,145 с.
Распаковка: 2 с.
итого: 18+152520,145+2=152540,145 с.
2. Способ без архивирования.
Передача: 16*1024*1024*8:220=610080 с.
Конечно, с архивированием, почти вчетверо быстрее :)
Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
program P1;
uses
crt;
var
mas : array[1..20] of integer;
i,j,k : integer;
tmp : string;
begin
clrscr;
writeln('Start array: ');
for i := 1 to 20 do
begin
mas[i] := random(100);
write(mas[i],' ');
end;
for i := 1 to 20 do
begin
if mas[i] mod 2 = 0 then
mas[i] := 0;
end;
for i := 1 to 20 do
begin
if mas[i] = 0 then
begin
for j := 20 downto i do
if mas[j] <> 0 then
begin
k := mas[j];
mas[j] := mas[i];
mas[i] := k;
end;
end;
end;
writeln('');
writeln('Result array: ');
for i := 1 to 20 do
write(mas[i],' ');
readln(tmp);
read(tmp);
end.
Может информатика?Информатика — это фундаментальная естественная наука, изучающая процессы передачи и обработки информации.
<span> ИНФОРМАТИКА - научная дисциплина, изучающая структуру и общие свойства научной информации, а также закономерности всех видов научной коммуникации. </span>