1-ое число: 1
2-ое число: 10
3-е число: 11
4-ое число: 100
5-ое число: 101
6-ое число: 110
7-ое число: 111
8-ое число: 1000
9-ое число: 1001
10-ое число: 1010
11-ое число: 1011
12-ое число: 1100
13-ое число: 1101
14-ое число: 1110
15-ое число: 1111
16-ое число: 10000
17-ое число: 10001
18-ое число: 10010
19-ое число: 10<span>011</span>
20-ое число: 10100
ну если не надо еще в какие-нибудь другие единицы то правильно, но ты понял как добавить еще точности, так ведь?
Uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 360 do
begin
Setpencolor(clblack);
x1:=x+round(r*cos(i*pi/180));
y1:=y-round(r*sin(i*pi/180));
line(x,y,x1,y1);
end;
end.
uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 135 do
begin
Setpencolor(clblack);
x1:=x+round(r*cos(i*pi/180));
y1:=y-round(r*sin(i*pi/180));
line(x,y,x1,y1);
end;
end.
uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=100;
y:=50;
r:=200;
for i:=1 to 360 do
begin
Setpencolor(clblack);
x1:=x+round(r*cos(i*pi/180))+200;
y1:=y-round(r*sin(i*pi/180))+200;
line(x,y,x1,y1);
end;
end.
Черно-белое → 2 цвета → глубина цвета 1 бит (2^1=2).
размер 1020*649=661980 пикселей.
каждый пиксель кодируется 1 битом (выше посчитали) → 661980*1=661980 бит на всё изображение.
в 1 байте 8 бит → 661980 бит = 661980/8 байт = 82747,5 байт
Var n:integer;
begin
readln(n);
write(n mod 10,n div 100,(n div 10) mod 10);
end.