От 11 до 55 = 55-11+1 = 42 варианта
Перестановки = 42^[5] (факториальная степень)= 42 * 41 * 40 * 39 * 38 = 102 080 160
<em>// PascalABC.NET 3.2, сборка 1447 от 22.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString.ToWords;
s[0]:=s[0].ToLower;
var r:=s.JoinIntoString(' ');
Writeln(r);
end.
<u>Пример</u>
КолБАсА вареная
колбаса вареная
С сайта майкрософт была украдена важная информация о личных данных зарегистрированных пользователей.
Поступила информация о приближающемся метеорите.
Скоро будет конкурс, ждем новой информации.
Информация в газете лож!
Информация на диске удалена.
<span>program el<span>;
</span></span><span>Uses crt<span>;
</span></span><span>var n,R,R1,R2:real<span>;
</span></span><span>begin
</span><span>writeln('Вычисление сопротивления электрической цепи.')<span>;
</span></span><span>writeln('Введите исходные данные:')<span>;
</span></span><span>writeln('Величина первого сопротивления (Ом) -> '); readln(R1)<span>;
</span></span><span>writeln('Величина второго сопротивления (Ом) -> '); readln(R2)<span>;
</span></span><span>writeln('Тип соединения (1 - последовательное, 2 - параллельное) -> '); readln(n)<span>;
</span></span><span>If n=1 <span>then
</span></span><span>R:=R1+R2
</span><span>else R:=R1*R2/(R1+R2)<span>;
</span></span><span>writeln('')<span>;
</span></span><span>writeln('Соротивление цепи: ',R)<span>;
</span></span><span>end<span>.</span></span>