Что точно ты не можешь решить??
512 кбит/с=64кбайт/с
В минуту – 64*60=3800 кбайт=3,75 Мбайт
1 Гбайт=1024 Мбайт
1024/3,75=273,1 минуты
273,1/60=4,55 часа=4 часа 33 минуты
Вот на это ориентироваться.
Мне кажется что 1,2
Ответ:1,2
Вот такая программа (для PascalABC.NET). И еще ты не сказал, что делать с числом, если оно равно 0?
var a,x:integer;
begin
read(a);
if a<0 then x:=0 else x:=a;
writeln(x);
end.
Не забудь откомпилировать перед проверкой.
Const
n=10;
var
a:array[1..n]of integer;
i,j,buf:integer;
begin
for i:=1 to n do
begin
a[i]:=random(3);
write(a[i]:4);
end;
{сортирую по возрастанию}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j]then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
{пересылаю нули в конец масива}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=0 then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
for i:=1 to n do
write(a[i]:4);
end.