Вот вроде бы правильно сделано )
Бит-1, Байт-2, Килобайт-3, Мегабайт-4, Гигабайт-5.
Да. т.к. 7% от 200000 это 14000, следовательно объём древесины будет уменьшаться
Const
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
end;
writeln(s);
end.
16*50*32=25600байт
8бит=1байт
25600*1=25600байт
1Кбайт=1024байта
25600:1024=25Кбайт