Во 2 строке добавляется только 1 число, поэтому дальше будет выход за границы листа.
Чтобы исправить: добавлять значения в цикле и в 3 строке range(len(A)) => range(len(A)-1)
Что шоколадных стало 9. карамели стало 5. ирисок стало 4. А леденцов стало 3
Количество символов в алфавите марсиан (количество различных символов в приветствии) = 8. Для кодирования одного из 8 символов требуется log(2)8 = 3 бита (2^3=8). Приветствие состоит из 10 символов, количество информации в нем: 10*3 = 30 бит.
Ответ: г) 30 бит
Program z1;
var a,b,c,d,e:integer;
begin
Writeln('Введите числа: ');
Write('Первое число (a): '); read(a);
Write('Второе число(b): '); read(b);
if (a mod 2=0) then c:=a;
if (b mod 2=0) then d:=b;
if (a mod 2=0) or (b mod 2=0) then Writeln('Среди введённых чисел присутствует чётное число')
else Writeln('Среди введённых чисел нет чётных чисел');
if (c=a) then Writeln('Чётное число: ',c);
if (d=b) then Writeln('Чётное число: ',d);
end.
1. друга ищи, а найдёшь - береги
2. старый друг лучше новых двух