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]
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.