75 дели на 2 столбиком. пока делитель не станет больше делимого
1010
10 / 2 = 5 остаток 0
5 / 2 = 2 остаток 1
2 / 2 = 1 остаток 0
собираем последний результат и остатки в обратном порядке - получаем 1010
Не знаю точно или нет , но подходит слово : пергамент
program massiv;
var
a: array[1..12] of
integer;
i,k,n: byte;
begin
for i:=1 to 12 do
begin
<span> a[i]:=random(11)-7;</span>
<span> write(a[i]);</span>
<span> write(' ');</span>
<span> end;</span>
k:=0;
for i:=1 to 12 do
<span> if a[i]<0 then begin</span>
<span> k:=k+1;</span>
<span> end;</span>
writeln(' <0 ',k, '
chisel');
<span>end.</span>
Var i,s:integer;
begin
s:=0;
i:=3;
while i<=38 do
begin
s:=s+i;
i:=i+5;
end;
writeln('s = ',s);
end.
Пример:
s = 164