<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=BigInteger(0);
var f:=BigInteger(1);
for var i:=1 to ReadInteger('n=') do begin
f*=i;
s+=f
end;
Writeln('S= ',s)
end.
<u>Примеры</u>
n= 5
S= 153
n= 20
S= 2561327494111820313
n= 100
S= 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
Переменными могут быть - числа, буквы, строки, текст, цифра
Системы мира, термин, употребляемый в астрономии для обозначения представлений о строении системы небесных тел - Земля, Луна, Солнце, планеты.
Гелиоцентрическая Система,
Система сфер
<span>геоцентрическая Система
:)</span>
113)Вторая мировая война
114)Возвергающий вулкан
program asd;
var a,b,k:integer;
begin
readln (a,b);
b:=b-1;
while (b>a) do begin
write (b,', ');
b:=b-1;
k:=k+1;
end;
writeln;
writeln (k);
readln;
end.