<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString.OrderBy(c->c).ToArray;
var i:=s.FindIndex(t->t<>'0'); Swap(s[0],s[i]);
s.Println
end.
<u>Пример</u>
54560345345601323451233903454658345034521212
10000111222223333333334444444455555555566689
1) г), 2) б),
4) 1-г, 2-ж, 3-з, 4-в, 5-а, 6-е
5) и 6) не знаю.
1) 1000/1024=0,97 кб 1000 байт < 1 кб
2)220/1024=0,214 Кб 1/2 кб = 512 кб 220 < 1/2
3)1 мб = 1024 кб 1 < 1500
4)8192/8/1024 = 1 кб 1=1
# # Код на 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("Чему быть - тому не миновать")
Вот решение. Думаю, все понятно