//PascalABC.NET 3.1 сборка 1200
begin
var k := ReadInteger('k =');
var l := 6;
if k > l then swap(k, l);
Println(Range(k, l).Aggregate(1,(p, x) -> p * x));
end.
А)1100 * 11 - 100=100000
б)1100 / 10 - 10=100
в)1100 / 11 - 100=0
1.Текстовые данные
2.Графические данные
3.Звуковые данные
4.Мультимедийные данные
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger('n=')).Reverse.Println;
end.
<u>Пример</u>
n= 5
1 2 5 7 9
9 7 5 2 1