Дано целое число n (> 0). вывести сумму 2 + 1/(2! ) + 1/(3! ) + + 1/(n! ) (выражение n! — "n факториал" — обозначает произведение всех целых чисел от 1 до n: n! = 1•2••n). полученное число является приближенным значением константы e = exp(1) (= 2. язык: delphi 7

Var n,i: integer; f: longint; s: real; begin write('n = '); readln(n); f: =1; s: =2; for i: =2 to n do   begin   f: =f*i;   s: =s+1/f;   end; writeln('s = ',s); end. пример: n = 10 s = 2.71828180114638

pascal:

 

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

 

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.

2^i = 100

i = 7 бит необходимо для кодирования любого от 1 до 100

64 * 7 =  448 бит = 56 байт