паскаль

[PR0Z0N]

Народ,помогите пожалуйста решить задачки на паскале:
1)Составить программу для вычисления суммы: 2! + 4! + 6! + + ... + n! (п < или =16, п — четное). Примечание. Тип результата значения функции — Longint.
2)Дана символьная строка. Для каждого символа определить и напечатать, что этот:
а) символ встречается в тексте один раз;
б) символ встречается в тексте два раза;
в) символ встречается в тексте более двух раз.
Заранее огромное спасибо!

[Chudo4258]

1)Составить программу для вычисления суммы: 2! + 4! + 6! + + ... + n! (п < или =16, п — четное). Примечание. Тип результата значения функции — Longint.

program Project2;

function Factorial(n: word): LongInt;
var
  fact: longint;
begin
  fact := 1;
  if n=0 then exit;
  for n := 1 to n do
  fact := fact*n;
  Factorial := fact;
end;

var i,n:word;
    S:longInt;

begin
write('n= '); readln(n);
for i:=2 to n do
 if i mod 2 = 0 then S:=S+Factorial(i);
Writeln('S= ',S);
readln;
end.

[Chudo4258]

Кстати, вопрос: почему в MathCad-e 2!+4!+6!+8!+10!=3669866, а в Delphi 3669871 ???

[Serge_Bliznykov]

во-первых, такая тема (задача) здесь была решена буквально пару дней назад.
во-вторых, мне вот интересно, но почему люди так рвутся посчитать факториал для каждого значения!!
ну видно же, что каждый последущий член суммируемой последовательности это предыдущий умноженный на пару натуральных чисел:
4! =2!*3*4
6! = 4! * 5 * 6
8! = 6! * 5 * 6 и т.д.
таким образом не надо каждый раз считать факториал полностью - достаточно хранить предыдущий член суммируемой последовательности...
сравните с программой:

var i,n:word;
    Fact, S:longInt;

begin
write('n= '); readln(n);
fact := 1;
for i:=2 to n do begin
  Fact := Fact * i;
  if i mod 2 = 0 then S:=S+Fact;
end;  
Writeln('S= ',S);
readln;
end.

p.s. Chudo4258, проверил в TP7 и Delph5,
и Ваша программа и моя, при
n=10 выдаёт результат S= 3669866
exe-шник приложить?!