Program NoName;
Var i,n,sum: integer;
a:array[1..9999] of integer;
Begin
sum:=0;
Write ("Количество элементов массива = ");
Read (n);
For i:=1 to n do
Begin
Writeln(a[i]);
End;
Writeln ;
For i:=1 to n do
Begin
If a[i] < 20 then
a[i] := a[i] * 3;
sum:=sum + a[i];
Writeln(a[i]);
End;
Write (sum);
End.
Var a:byte;
begin
write ('<span>x+y=a+b');
end.</span>
1) 1/1024 Мб=1 кб 1000 байт меньше
2) 5500000б больше 512 кб, но меньше 1Мб
3)13 байт 1/16 Кб =64 б
4)<span>600000 Мб больше 512Гб(1/2Тб)
</span>5)<span>2000000000 байт =2Гб т.е. больше 1Гб, но меньше 1Тб</span>
Размер данных на флешке = 4,44*0,88=3,9072 ГБ = 4000,9728 Мб = 4096996,1472 Кб
Разделим размер на скорость и получим секунды.
4096996,1472/1199=3417 секунд