Паскаль. Смотрите Вложение.

+ 0 -

Nikuyaneznau

04 нояб. 2013 г., 1:40:34 (10 лет назад)

Program leysan4152;
uses crt;
var
  i,n,t,kwo:integer;
  sum:real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/2!+1/4!+1/6!+1/8!+...+1/(2n)! ');
  writeln('для N значений');
  writeln();
  n:=-1;
  while n<1 do
    begin
      writeln('Введите N'); readln (n);
    end;
  t:=2;
  sum:=t;
  kwo:=0;
  writeln();
  for i:=2 to n do
    begin
      t:=t*(2*i-1)*2*i;
      sum:=sum+1/t;
      if 1/t < 0.1 then kwo:=kwo+1;
      writeln('i=',i,'  T=',1/t:0:6);
    end;
  writeln('Количество элементов, который меньше 0.1, равно ',kwo);
end.