O__o
var
i, s : Integer;
begin
for i := 1000 to 9999 do
if (i * 4 >= 1000) and (i * 4 <= 9999) then
begin
s := i * 4;
if ((i mod 100) div 10 = ( s div 1000)) then
if ((i mod 10) = ( s mod 1000) div 100) then
if ( i div 1000 = (s mod 100) div 10) then
if ( ((i mod 1000 div 100) <> i div 1000) and ((i mod 1000 div 100) <> (i mod 100) div 10) and ((i mod 1000 div 100) <> i mod 10)) then
if ( (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10)) then
Writeln(i, ' = ', i * 4);
end;
Readln;
end.
Оно на всех неправильное ось симетрии должа делить предмет ровно на пополам
1. Объем файла = 16*2048 бит = 16*2048/8 байт = 2*2048 байт = 2*2048/1024 Кбайт = 4 Кбайта.
2. 60 Кбайт = 60*1024 байт = 60*1024*8 бит
Время = 60*1024*8/3072 = 160 сек
3. S1 = t*v1, S2 = t*v2
S1/S2 = v1/v2, S2 = S1/(v1/v2)
v1/v2 = 1536/768 = 2
S2 = 80/2 = 40 Кбайт
4. S1 = t1*v, S2 = t2*v
S1/S2 = t1/t2, S2 = S1/(t1/t2)
t1/t2 = 60/75 = 4/5 = 0,8
S2 = 2000/0,8 = 2500 Кбайт
5. S1 = t1*v, S2 = t2*v
S1/S2 = t1/t2, t2 = t1/(S1/S2)
S1/S2 = 3/4 = 0,75
t2 = 2*60/0,75 = 160 сек