Есть ответ 👍

Найти сумму ряда из n-членов .s=1 + 1/2 + 1/1*2*3 + 1/n! .использовать процедуру или функцию.

233
433
Посмотреть ответы 2

Ответы на вопрос:


{нахождение суммы ряда } var n: integer; {   процедура - функция} function sumr(m: integer): real; var i: integer;     s,prom: real; begin     s: =0;     prom: =1;     for i: =1 to m do     begin       s: =s+(prom/i);       prom: =prom/i;     end;     result: =s; end; { конец процедуры } { основная программа } begin   write('задайте n:   ');   readln(n);   writeln('сумма ряда равна:   ',sumr(n): 10: 5); end.

Разрядность  процессора   – это величина, которая определяет размер машинного слова, то есть количество информации, которой  процессор   обменивается информацией с оперативной памятью.

Популярно: Информатика