Форум «Всё о Паскале» _ Ассемблер _ как это будет выглядеть в ассемблере?
Автор: forum4uxa 31.01.2007 22:07
var n:word; k,i,j:array[1..1000] of byte n:=23; j[n]:=2; for k[n]:=$AFA downto 9 do if ((k[n] div 4)=3) or (k[n] mod 100=0) then j[n]:=j[n]*k[n]+k[n]*k[n] else j[n]:=j[n]+k[n]