Решение задачи показано в прилагаемой таблице.
Var i:longint; m:array[1..10] of longint;
Begin
for i:=1 to 10 do
begin
read(m[i]);
if m[i] mod 2 = 1 then
m[i]:=m[i]*4 else
m[i]:=m[i]*3;
end;
for i:=1 to 10 do
write(m[i],' ');
<span>End.</span>
40 секунд - это 2/3 от 60 секунд
3мб × 2/3 = 2мб
<u>Инструкция:</u>
При любом префиксе и слове
байт нужно к предыдущей степени прибавить 10(при условии что префиксы равномерно уменьшаются
Пбайт-Тбайт-Гбайт-Мбайт-Кбайт-байт).
1 байт =
байт
1 Кбайт =
байт
1 Мбайт =
байт
И так далее...
При слове
бит нужно к предыдущей степени
НЕ БИТОВ прибавить 3.
1 байт =
бит
1 Кбайт =
байт =
бит
____________
<u>Решение:</u>
1 байт -
байт
1 Кбайт -
байт -
бит
1 Мбайт -
Кбайт -
байт -
бит
1 Гбайт -
Мбайт -
Кбайт -
байт -
бит
1Тбайт -
Гбайт -
Мбайт -
Кбайт -
байт -
бит
1 Пбайт -
Тбайт -
Гбайт -
Мбайт -
Кбайт -
байт -
бит
Active Perl, Aptana, Jbuilder, CodeLite; vs от майкрософт