<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
C исполнителем КАЛЬКУЛЯТОР 10 команд:1122121221
С программой Ответ 35
вычисляем а (=3)
условие Если 6>6 не выполняется Считаем по второй формуле (после else)
1)8*1024*1024*1024=8589934592
2)8589934592/2400=3579139 - страниц поместиться.
2)3579139/100=35791 см=35,8м=36м
// PascalABC.NET 3.3
begin
var a:=ArrRandom(35,2,42); a.Println;
Writeln('П=',a.Where(x->(x>=4)and(x<=10)).Aggregate(1,(p,x)->p*x));
end.
Пример:
34 16 9 17 4 11 34 26 30 17 28 18 6 31 38 20 30 35 29 40 21 38 30 10 5 9 15 12 28 5 23 6 30 30 37
П=2916000