Вычислить 20!+ 30! используя паскаль. желательно показывая формулу. ато подзабыл тему
Вычислить 20!+ 30! используя паскаль. желательно показывая формулу. ато подзабыл тему
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function F(n:biginteger):biginteger;
begin
if n<=1 then Result:=1
else begin
Result:=1;
var i:biginteger:=1;
while i<=n do begin Result*=i; i+=1 end;
end
end;
begin
Writeln(F(20)+F(30))
end.
Результат
265252859812193491538316656640000
Не нашли ответ?
Похожие вопросы