// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=(3,ReadInteger('n ='));
SeqGen(n-1,m,t->begin Result:=t+m; m+=1 end)
.Aggregate(BigInteger(1),(p,q)->p*q).Println
end.
---------------------------
n = 5
2700
--------------------------
n = 92
2905717351708908985405643744987697767130796956644732769142761496541317116624931720391311988753812039943077115478561297954388733569194661753822436538090873756174074892748228397527408937781819534979620536526957830995968000000000000000000000000000000000000000000
Восьмиклассник в синей рубашке.
Объяснение:
Имеются три высказывания:
Класс 8 И Рубашка Красная (1)
Класс 6 И Рубашка Синяя (2)
Класс 7 И Рубашка НЕ Красная (3)
Известно, что в каждом высказывании одно утверждение истинно, другое ложно.
Предположим, что рубашка красная, тогда из (1) следует, что класс не восьмой. В (3) будет ложно утверждение о том, что рубашка не красная, следовательное класс седьмой. Из (2) следует, что если класс не 6, то рубашка синяя. Но мы предположили, что рубашка красная, следовательно наше исходное предположение неверно.
Предположим, что рубашка синяя. Из (2) следует, что класс не 6. Из (3) следует, что при не красной рубашке класс не может быть седьмым. Следовательно, класс 8 и поэтому в (1) рубашка не может быть красной. Так оно и есть.
Это был восьмиклассник в синей рубашке.
var
N:integer;
i:integer;
sum:integer;
result:integer;
begin
writeln('Введите значение N:');
readLn(N);
sum := 0; result := 1;
for i := 1 to N do
begin
sum := sum + i;
result := sum * result;
end;
writeln('Конечное значение = ', result);
end.