написать программу
20 БАЛЛОВ !

Програ́мма (от греч. προ — пред, греч. γράμμα — запись) — термин, в переводе означающий «предписание», то есть заданную последовательность действий. Данное понятие непосредственно связано с понятием алгоритм.

Объяснение:

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₂

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.