63

Написать блок-схемы для программы…

sacrament 03 июля 2022

Написать блок-схемы для программы, которая ведет значение переменной n и посчитает сумму ряда от следущего 1/1+1/ (1*2) … +1/ (1*2*3*… n)

категория: информатика

54

var i, j,fact, n: integer; summ: real; begin write ('n='); readln (n); summ: =0; for i: =1 to n do begin fact: =1; for j: =2 to i do fact: =fact*j; Summ: =Summ+1 / fact; end; writeln ('Summ=', Summ); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...