<h2>Ответ</h2>
1) Файлы на диске будут перераспределены так, что они будут идти последовательно
Var m1,m2,st,i:integer;
begin
m1:=0; m2:=0;
st:=1;
for i:=1 to 30 do
begin
m1:=m1+100;
m2:=m2+st;
st:=st*2;
end;
writeln('Богатый: ',m1,' бедный: ',m2);
if m1<m2
then writeln('Выиграл богатый') else writeln('Выиграл бедный');
end.
Результат:
Богатый: 3000 бедный: 1073741823
Выиграл богатый
1) m:=54; n:=16
m=n? Нет ⇒ m>n? Да ⇒ m:=m-n (54-16=38)
Ответ: m=38
2) Циклический алгоритм
a:=1; b:=0;
b=4? Нет ⇒ b:=b+1 (1); a:=2*a (2);
b=4? Нет ⇒ b:=b+1 (2); a:=2*a (4);
b=4? Нет ⇒ b:=b+1 (3); a:=2*a (8);
b=4? Нет ⇒ b:=b+1 (4); a:=2*a (16);
b=4? Да.
Ответ: а=16; b=4