идентификатор в паскале

[drcoxer]

есть программа

Program Lab;
 Uses crt;
 Var
  st:string;
  k:integer;
 Procedure Ident(i:integer; f:string);
  Var
   j,s:integer;
  Begin
   s:=0;
  for j:=1 to i do
   begin
    if (('a'<=f[j]) and (f[j]<='z')) or ('0'<=f[j]) and (f[j]<='9')
    or ((f[j]='_')) or (('A'<=st[j]) and (st[j]<='Z')) and (f[j]<>'')
     then s:=s+1;
    end;
   if s=i
    then
     writeln('вводимая последовательность является идентификатором')
    else
     writeln('вводимая последовательность не является идентификатором');
  end;
 Begin
  ClrScr;
  Writeln('введите последовательность');
  Readln(st);
  k:=Length(st);
  if (('a'<=st[1]) and (st[1]<='z'))  or (('A'<=st[1]) and (st[1]<='Z'))
   then
    Ident(k,st)
   else
    writeln('вводимая последовательность не является идентификатором');
End.

программа определяет является ли последовательность идентификатором
(под идентификатором понимается последовательность латинских букв )
нужно сделать так чтобы слова begin var и end не являлись идентификатором

[psycho-coder]

Ну так сделай проверку на эти слова

[drcoxer]

Сообщение от psycho-coder

Ну так сделай проверку на эти слова

огромное спс

[TOMMY666]

ЛЮДИ решите, плиз, а то я не совсем это понимаю

82. Дано действительное число x. Вычислить
(x-2)(x-4)(x-8)... (x-64)
-------------------------.
(x-1)(x-3)(x-7)... (x-63)

80. Дано действительное число x. Вычислить
3 5 7 9 11 13
x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13!

[Жека-старший]

ЛЮДИ решите, плиз, а то я не совсем это понимаю

82. Дано действительное число x. Вычислить
(x-2)(x-4)(x-8)... (x-64)
-------------------------.
(x-1)(x-3)(x-7)... (x-63)

program pr_1;
var pr1,pr2,itog,x:real;
    i,n:byte;
begin
  writeln('Vvedite x');
  readln(x);
  pr1:=1;
  pr2:=1;
  for i:=1 to 64 do
  if i mod 2=0 then pr1:=pr1*(x-i)
               else pr2:=pr2*(x-i);
  if pr2=0 then writeln('Error: delenie na nol')
           else begin
                  itog:=pr1/pr2;
                  writeln('Otnoshenie summ- ',itog);
                end;
end.

[Жека-старший]

80. Дано действительное число x. Вычислить
3 5 7 9 11 13
x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13!

program pr_1;
var x,fac,sum:real;
    i:byte;
begin
  writeln('Vvedite x');
  readln(x);
  fac:=1;
  for i:=1 to 13 do
  begin
     fac:=fac*i;
     if i mod 2<>0 then sum:=sum+x/fac;
  end;
  writeln('Summa- ',sum);
end.

[TOMMY666]

ещё 2
200. Даны целые числа a, n, x1,..., xn (n>0). Определить, каким
по счету идет в последовательности x1,..., xn член равный а. Если
такого члена нет, то ответом должно быть число 0.

201а. Даны натуральное число n, действительные числа а1,...,аn.
Получить max(a1,..., an).

[Филантроп]

200

uses crt;
var ma:array[1..100] of integer;
i,n,k,a:integer;
begin
readln(n);
for i:=1 to n do
readln(ma[i]);
k:=0
readln(a)
for i:=1 to n do
begin
if ma[i]=a then begin k:=i;break;end;
writeln(k);
readln;
end.

201а

uses crt;
var ma:array[1..100] of integer;
i,n,k:integer;
begin
readln(n);
for i:=1 to n do
readln(ma[i]);
k:=ma[1];
for i:=2 to n do
begin
if ma[i]>k then begin k:=ma[i];end;
writeln(k);
readln;
end;

ещё 2

- прям как в магазине!!!

[Grag]

Сообщение от Жека-старший

program pr_1;
var x,fac,sum:real;
    i:byte;
begin
  writeln('Vvedite x');
  readln(x);
  fac:=1;
  for i:=1 to 13 do
  begin
     fac:=fac*i;
     if i mod 2<>0 then sum:=sum+x/fac;
  end;
  writeln('Summa- ',sum);
end.

Что-то меня сомненья гложут в правильности этого решения...
Не пойму я как подсчитывается факториал числа
Да и во всем прочем ничего не понимаю (одни суммы, без вычитаний)

[Филантроп]

80 Исправлено

program pr_1;
var x,fac,s:extended;
    i:byte;
begin
  writeln('Vvedite x');
  readln(x);
  s:=x;fac:=1;;
  for i:=1 to 6 do
  begin
     fac:=fac*2*i*(2*i+1);
	 if i mod 2 = 0 
	 then s:=s-x/fac
	 else s:=s+x/fac;
  end;
  writeln('Summa=',s:6:2);
end.

82

program pr_1;
var x,p:real;
    i:byte;
begin
  writeln('Vvedite x');
  readln(x);
  p:=1;;
  i:=2;
  while i<=64 do
  begin
     p:=p*(x-i)/(x-i-1);
	 i:=i*2;
  end;
  writeln('BbIpa}|{eHue= ',p:6:2);
end.