Дан список М предметов. Выбрать предметы, начинающиеся на «му» и заканчивающиеся на «а».

// PascalABC.NET 3.6

begin

 var m := ReadlnInteger('M =');

 var L := ReadString('Введите слова через пробел:').ToWords.ToList;

 if L.Count <> m then

   Print('Число предметов не равно', m)

 else

   L.Where(w -> (w[:3] = 'му') and (w.Last = 'а')).Print

end.

1)

Аня сестра Вадим. Вера сестра Аркадия. Ира сестра Артёма

В условии сказано что один из них не клал грибы в корзину своей сестры, а про других не говорилось, Вадим и Аркадий клали грибы в корзины Ани и Веры. Артём не клал не в одну корзину, но так как каждый именно своей сестре, то Вадим Ане, значит она его сестра, Аркадий Ане и Вере, его сестрой не может быть Аня так как она сестра Вадима, значит его сестра Вера. Остаётся Артём и Ира, значит Ира сестра Артёма.

2)

Б

3)Объем информации, который занимает один символ компьютерного алфавита из 256 символов = 8 бит или 1 байт. В 1кбайте=1024бит

Значит 11×1024=11264

Далее 22528-11264=11264.

Получается мощность алфавита в 2 раза больше объёма данного сообщения.

Задача №1

var a:array[1..3, 1..4] of integer; 
i,j,min:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do begin 
read(a[i,j]); 
if a[i,j]<0 then min:=a[i,j]; 
end; 
for i:=1 to 3 do 
for j:=1 to 4 do 
if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j]; 
writeln('Минимальное отрицательное число ',min); 
end.

Задача №2
var a:array[1..2, 1..5] of integer; 
i,j:integer; 
begin 
for i:=1 to 2 do 
for j:=1 to 5 do read(a[i,j]); 
for i:=1 to 2 do begin 
for j:=1 to 5 do 
write(a[i,j],' '); 
writeln; 
end; 
end. 

Задача №3
var a:array[1..3, 1..4] of integer; 
i,j:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do read(a[i,j]); 
for i:=1 to 3 do 
for j:=1 to 4 do 
if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i); 
end.