uses SysUtils, DateUtils;
const
COUNT = 10000000;
var
st, en : TDateTime;
pr, i, j : LongInt;
begin
st := Now;
for j := 1 to COUNT do begin
pr := 1;
for i := 30 to 50 do
if not Odd(i) then
pr := pr*i;
end;
en := Now;
WriteLn('for : ', MilliSecondsBetween(st, en));
st := Now;
for j := 1 to COUNT do begin
pr := 1;
i := 30;
while i <= 50 do begin
pr := pr*i;
Inc(i, 2)
end
end;
en := Now;
WriteLn('while : ', MilliSecondsBetween(st, en))
end.
dXNlcyBTeXNVdGlscywgRGF0ZVV0aWxzOwpjb25zdAogICAgQ09VTlQgPSAxMDAwMDAwMDsKdmFyCiAgICBzdCwgZW4gOiBURGF0ZVRpbWU7CiAgICBwciwgaSwgaiA6IExvbmdJbnQ7CmJlZ2luCiAgICBzdCA6PSBOb3c7CgogICAgZm9yIGogOj0gMSB0byBDT1VOVCBkbyBiZWdpbgogICAgICAgIHByIDo9IDE7CiAgICAgICAgICBmb3IgaSA6PSAzMCB0byA1MCBkbwogICAgICAgICAgICBpZiBub3QgT2RkKGkpIHRoZW4KICAgICAgICAgICAgICAgIHByIDo9IHByKmk7CiAgICBlbmQ7CgogICAgZW4gOj0gTm93OwogICAgV3JpdGVMbignZm9yIDogJywgTWlsbGlTZWNvbmRzQmV0d2VlbihzdCwgZW4pKTsKCiAgICBzdCA6PSBOb3c7CiAgICBmb3IgaiA6PSAxIHRvIENPVU5UIGRvIGJlZ2luCiAgICAgICAgcHIgOj0gMTsKICAgICAgICBpIDo9IDMwOwogICAgICAgIHdoaWxlIGkgPD0gNTAgZG8gYmVnaW4KICAgICAgICAgICAgcHIgOj0gcHIqaTsKICAgICAgICAgICAgSW5jKGksIDIpCiAgICAgICAgZW5kCiAgICBlbmQ7CiAgICBlbiA6PSBOb3c7CiAgICBXcml0ZUxuKCd3aGlsZSA6ICcsIE1pbGxpU2Vjb25kc0JldHdlZW4oc3QsIGVuKSkKCmVuZC4=