<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000
К 1971 году была создана сеть с 23 пользователями в разных концах США. В 1972 году впервые ARPANET была продемонстрирована перед публикой.
В Unicode каждый символ кодируется двумя байтами, считая пробелы и знаки препинания. В приведённом предложении нет точки в конце. (А должна быть!). Подсчитайте количество символов, умножьте на 2, это и будет ответ.
Если вы про имя, то у меня любое
хоть и такое:
<span>\ ⁄ ? : * " > < |
ОС: Linux
получается создать файл с \
если у кого стоит бубунту, то не нужно тут причитать, мол файл такой невозможен
максимальная длина - </span><span>???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
Дистрибутив: Mageia</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var m := Range(1, n).Average;
if m > 17 then
Print(m - 5)
else
Range(1, n).Aggregate(BigInteger.One, (p, q) -> p * q).Print
end.