5. Добавить в конец массива новый элемент равный 5.. A. a=[6,5,6,7,6,4,3,6,3,4]
a=5
print (a)
B. a=[6,5,6,7,6,4,3,6,3,4]
a.append(5)
print (a)
C. a=[6,5,6,7,6,4,3,6,3,4]
a=a+5
print (a)

6. Прочитайте условия задач. В программе создали список а. Что будет выведено на экран после выполнения следующих операторов?

a = ['b', 'c', 'd', 'e', 'f', 'g']
print(a[-2])

ii. В программе создали список а. Что будет выведено на экран после выполнения следующих операторов?
a = ['a', 'b', 'c', 'd', 'e', 'f', 'g']
print(len(a))

Картинка

Объяснение:

На схеме цикл:

1) у = 2 * х   -   вычисляет у

2) выводит на экран значения х и у

3) х = х+1   -   увеличивает значение х на 1

4) х <= 0   -   проверяет условие (если да, то начинается сначала)

x = -5

y = 2 * -5 = -10

x = -5       y = -10

-4 <= 0     (да)

y = 2 * -4 = -8

x = -4       y = -8

-3 <= 0     (да)

y = 2 * -3 = -6

x = -3       y = -6

-2 <= 0     (да)

y = 2 * -2 = -4

x = -2       y = -4

-1 <= 0     (да)

y = 2 * -1 = -2

x = -1       y = -2

0 <= 0     (да)

y = 2 * 0 = 0

x = 0       y = 0

1 <= 0     (нет)

1. Программа для создания файла

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
  tBook=record
    author:string[30];
    naim:string[50];
    pages:integer;
    godizd:integer
    end;
begin
  var f:file of tBook;
  Rewrite(f,'books.dat');
  Writeln('Ввод данных по книгам');
  var s1,s2:string;
  var i1,i2:integer;
  var book:tBook;
  repeat
    s1:=ReadlnString('Автор или * для окончания ввода:');
    if s1<>'*' then begin
      s2:=ReadlnString('Название книги:');
      i1:=ReadlnInteger('Количество страниц:');
      i2:=ReadlnInteger('Год издания:');
      (book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
      Write(f,book)
      end
  until s1='*';
  Writeln('*** Ввод завершен ***');
  f.Close
end.

Тестовое решение
Ввод данных по книгам
Автор или * для окончания ввода: Жюль Верн
Название книги: 80 тысяч километров под водой
Количество страниц: 573
Год издания: 1951
Автор или * для окончания ввода: Сергей Лукьяненко
Название книги: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Название книги: Властелин мира
Количество страниц: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***

2. Программа для выборки

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
  tBook=record
    author:string[30];
    naim:string[50];
    pages:integer;
    godizd:integer
    end;
begin
  var f:file of tBook;
  Reset(f,'books.dat');
  var s:=ReadlnString('Автор книги:');
  var y:=Readinteger('Год издания, не ранее:');
  var k:=0;
  var book:tBook;
  while not f.Eof do begin
    Read(f,book);
    if (book.author=s) and (book.godizd>=y) then begin
      Writeln(book);
      Inc(k)
      end;
  end;
  if k=0 then Writeln('Таких книг не найдено');
  f.Close
end.

Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Властелин мира,104,2011)