Результат отработки алгоритма:
A=2
B=2
C=9
D=3
Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
1) 1,2
2) 2
3) 3
4) 4
5) 1, 3, 6
6) 2, 3, 4, 6, 7
7) Совокупность взаимосвязанных явлений, процессов, работ, образующих законченный круг развития в течение какого-л. промежутка времени
8) 1, 3, 4, 5, 8
16) 2, 3, 5
17) 1, 2
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
При использовании 8 символов для хранения одного символа требуется log(2)8 = 3 бита. Объем сообщения = 20*8 = 160 бит = 20 байт