# # Код на ruby 2.2.3p173
def zadanie(str)
p str
str = str.downcase
a = str.split(" ")
return [str, a.last.count("а")]
end
# Примеры применения
p zadanie("Шла Саша по шоссе и сосала сушку")
p zadanie("А роза упала на лапу азора")
p zadanie("Чему быть - тому не миновать")
Сообщение состоит из 48 символов. Глубина кодирования равна 8 битам. значит согласно алфавитного подхода сообщение имеет 48*8=384 бита информации.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
//Pascal ABC.NET v3.0 сборка 1111
var
a:integer;
begin
a:=0;
while a<>20 do
begin;
a:=a+2;
write(a:4);
end;
<span>end.</span>