Var s:string; i:integer;begin readln(s); for i:=1 to length(s)-1 do if s[i]+s[i+1]='му' then begin delete(s,i,2); insert('ло',s,i); end; writeln(s);end.
http://mojainformatika.ru/paskal/uroki-paskal-stroki/118-standartnye-proczedury-i-funkczii-primenyae...
Пусть x - количество двухкомнатных квартир, тогда вероятность того, что кто-то живет в двухкомнатной квартире = x/32.
По формуле Шеннона I = log(2)1/p = log(2)[1/x/32] = log(2)[32/x] = 2
32/x = 2^2; x = 32/4 = 8
Ответ: в доме 8 двухкомнатных квартир.
21
Он был последним, теперь предпоследний