Дано целое число N >0. Используя один цикл, найти сумму 1! +2! + 3! + …+N! (выражение N! — N-факториал — обозначает произведение всех целых чисел от 1 до N: N! = 1•2•.. .•N). Чтобы избежать целочисленного переполнения, проводить вычисления с помощью вещественных переменных и вывести результат как вещественное число — Pascal(Паскаль)

program Factorial;
uses wincrt;
var i,t: integer;     k:real;
begin
repeat
write('vvedite chislo:');
readln (t);
until t>0;
k:=1;
for i:=1 to t  do
k:=k*i;
writeln ('Factorial raven: ' ,k:4:9);
readln;
end.

Похожие записи/страницы:

Leave a Comment

30 − = 21