1. Информатика
  2. Составить программу для

Составить программу для вычисления суммы ряда 1/1! + 1/2! +.. +аа

polix2008 polix2008    2   19.05.2019 12:40    3

Ответы
spooknook spooknook  12.06.2020 16:37

var

  n, i, fact:integer;

  summ:real;

begin

  write('n = '); readln(n);

  fact := 1;

  summ := 0;

  for i := 1 to n do

  begin

    fact := fact * i;

    summ := summ + 1 / fact;

  end;

  writeln('Сумма ряда равна ', summ);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
igor99kz igor99kz  10.05.2020 17:20
З яких пристроїв можна захопити відео?...
alef911 alef911  10.05.2020 17:21
Напишите программу, которая считает сумму четных чисел среди заданных целых чисел a, b, c (числа a, b, c вводятся с клавиатуры)....
Alllexxxsss Alllexxxsss  19.07.2019 16:30
Получив на вход число x этот алгоритм печатает два числа a и b укажите наименьшее из таких чисел x при вводе которых алгоритм печатает сначала 3 а потом 18 var x,a,b: integer begin...
илона2707 илона2707  06.05.2020 15:58
Які види діяльності над проектом передбачає робота?...
89229131414 89229131414  09.03.2020 09:28
Составить блок-схему алгоритма покупок в магазине на сумму, не превышающую 1000 рублей. Цена каждого товара вводится по очереди в переменную А.​...
Victor789 Victor789  16.05.2020 16:47
решить данные задания в Паскале...
Loader Loader  16.05.2020 16:46
Здравствуйте выполнить тест по информатике. Во Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=...; repeat writeln( Привет! ); i:=i+1; until...
paveldol2007 paveldol2007  16.05.2020 16:46
1. Выберите строки, в которых условные операторы на языке Pascal записаны без ошибок. if x =10 then y:=y mod x; if x=y then z:=1; else z:=x*y; If 0 x 10 then write (‘х - однозначное...
sanjar860s sanjar860s  15.07.2019 01:40
30 ! у исполнителя вычислитель две команды 1.прибавь 3 2.умножь на 2 составьте алгоритм получения из числа 1 числа 25,содержащий не более 5 команд. 2. у исполнителя квадратор две...
alenamorozova4 alenamorozova4  24.12.2020 15:42
[ ) Тең бүйірлі үшбұрыштың бүйір қабырғасына қарағанда табаны 11 см ге қысқа , ал периметрі 28 см . Үшбұрыштың қабырғаларын табыңыз ....

Популярные вопросы