===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
#include <iostream>
using namespace std;
int main()
{
int k;
cin >> k;
int h = k % 1000 / 100;
cout << h <<endl;
system("pause");
}
Пример:
130985
9
<span>for i in range(100,1000):
if (i % 15 == 11) and (i % 11 == 9):
print(i,end = '\n')</span>