19 из 10 в 2
делим 19 на 2, записываем остатки, получившиеся значения записываем в обратном порядке
19/2=9 ост 1
9/2=4 ост 1
4/2=2 ост 0
2/2=1 ост 0
19 из 10 в 8
аналогично, но делим на 8
19/8=2 ост 3
19 из 10 в 16
19/16=1 ост 3
561 из 10 в 2
561/2=280 ост 1
280/2=140 ост 0
140/2=70 ост 0
70/2=35 ост 0
35/2=17 ост 1
17/2=8 ост 1
8/2=4 ост 0
4/2=2 ост 0
2/2=1 ост 0
561 из 10 в 8
561/8=70 ост 1
70/8=8 ост 6
8/8=1 ост 0
561 из 10 в 16
561/16=35 ост 1
35/16=2 ост 3
Var
x,n:integer;
begin
Write('n='); Read(n);
for x:=1 to n do
Writeln(x:5,4-x:10)
end.
<u>Пример</u>
n=10
1 3
2 2
3 1
4 0
5 -1
6 -2
7 -3
8 -4
9 -5
10 -6
===== PascalABC.NET =====
begin
var a := ReadArrInteger(5);
a.Max.Println
end.
<span>В) выделяет фрагменты рисунка по пути ведения курсора по замкнутой линии</span>