Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.
<span>количеством операций в секунду</span>
174(10)=10101110(2)=<span>256(8)</span>
.......................................................
делишь на два, остатки записываешь в обратном порядке