Поделим 156 на 2
156/2=78, остаток 0
78/2=39, остаток 0
39/2=19, остаток 1
19/2=9, остаток 1
9/2=4, остаток 1
4/2=2 остаток 0
2/2=1 с остатком 0
<em><u>1 уже не делится на 2 без остатка, значит запись начинаем с 1 с конца.</u></em>
Получается: 1 0 0 1 1 1 0 0
<em>Ответ: 4 (Четыре единицы).</em>
Var
a,b:integer;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('Pryamougolnik ', i);
writeln('vvedite storonu a');
readln(a);
writeln('vvedite storonu b');
readln(b);
writeln('perimetr = ', (a+b)*2);
end;
end.
Так как система счисления восьмеричная, самой большой цифрой( мастер объяснений) будет 7. То есть, если бы 520 было в десятичной системе счисления, предыдущее чисты было бы равно 519, так как в данной системе самой большой цифрой является 9. Аналогично, числу 520 в восьмеричной системе счисления предшествует число 517.
Ответ: 517
Program primer;
Var
i:integer;
begin
i:=-4;
repeat
writeln(i,' ',3*i);
i:=i+2;
until i>4;
end.