Создать файл f, содержащий сведения о книгах. сведения о каждой из книг – это фамилия автора, название книги и год издания. с другой программы найти все книги данного автора, изданные с 1980 года. сохранить эту информацию в файле g.

Program primer;
Var f,g:text;
    I,n,k: integer;        S,a,data: string;    Begin
Assign(f,'F.txt');
Assign(g,'G.txt');
rewrite(f);
Writeln('Кол-во книг? ');
readln(n);
for i:=1 to n do begin
writeln('Фамилия автора, название и год издания книги № ',i,' ?');
readln(s);
writeln(f,s);  // в фаил f забиваем данные
end;
close(f);
Writeln('Укажите автора для поиска ');
readln(a);
Rewrite(g);
Reset(f);
For i:=1 to 2 do begin
Readln(f,s);
if (pos(a,s)<>0) then begin  //ищем автора
data:=''; 
for k:=length(s) downto 1 do begin 
          if (s[k]=' ') then begin 
                   data:=data+copy(s,k+1,length(s));        //смотрим дату
                   break;         
         end;             
         end;        
         end;
if (strtoint(data) >= 1980) then writeln(g,s);  //сравниваем дату 
end;
close(f);
close(g);
end.
ABC Pascal

3.    15

4.    4) ⌐A & ⌐B

Объяснение:

3.

y = 1        x = 11

пока условие x > 0 истинно (да) выполняется цикл

Действия в цикле:

1) x = x - 3

2) y = y + x

y = 1        x = 11

11 > 0       (да) выполняется цикл

Действия в цикле:

1) x = x - 3  = 11 - 3 = 8

2) y = y + x  = 1 + 8 = 9

y = 9        x = 8

8 > 0       (да) выполняется цикл

Действия в цикле:

1) x = x - 3  = 8 - 3 = 5

2) y = y + x  = 9 + 5 = 14

y = 14        x = 5

5 > 0       (да) выполняется цикл

Действия в цикле:

1) x = x - 3  = 5 - 3 = 2

2) y = y + x  = 14 + 2 = 16

y = 16        x = 2

2 > 0       (да) выполняется цикл

Действия в цикле:

1) x = x - 3  = 2 - 3 = -1

2) y = y + x  = 16 + (-1) = 16 - 1 = 15

y = 15        x = -1

-1 > 0       (нет) цикл  не выполняется

y = 15        x = -1

4.

Составим таблицу истинности для каждого выражения (смотри картинку)

21

Объяснение:

y = 1       x = 10

пока условие  x > 0 истинно (да) выполнить

Действия в цикле:

x = x - 2

y = y + x

y = 1       x = 10

10 > 0   (да)

Действия в цикле:

x = 10 - 2  = 8

y = 1 + 8 = 9

y = 9       x = 8

8 > 0   (да)

Действия в цикле:

x = 8 - 2  = 6

y = 9 + 6 = 15

y = 15       x = 6

6 > 0   (да)

Действия в цикле:

x = 6 - 2  = 4

y = 15 + 4 = 19  

y = 19       x = 4

4 > 0   (да)

Действия в цикле:

x = 4 - 2  = 2

y = 19 + 2 = 21

y = 21       x = 2

2 > 0   (да)

Действия в цикле:

x = 2 - 2  = 0

y = 21 + 0 = 21

y = 21       x = 0

0 > 0   (нет)

Цикл не выполняется