У зошиті запишіть еквівалент числа свого народження у системах від двійкової до дев’яткової. ДО ТЬ будь ласка

200: 2

100|0

50|0

25|0

12|1

6|0

3|0

1|1

0|1

 

200₁₀=11001000₂

 

489: 2

244|1

122|0

61|0

30|1

15|0

7|1

3|1

1|1

0|1

 

489₁₀=111101001₂

 

543: 2

271|1

135|1

67|1

33|1

16|1

8|0

4|0

2|0

1|0

0|1

 

543₁₀=1000011111₂

 

950: 2

475|0

237|1

118|1

59|0

29|1

14|1

7|0

3|1

1|1

0|1

 

950₁₀=1110110110

 

1025: 2

512|1

256|0

128|0

64|0

32|0

16|0

8|0

4|0

2|0

1|0

0|1

 

1025₁₀=10000000001₂

 

 

 

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

 

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.