1. Даны числа...

Тема в разделе "Информатика", создана пользователем NIGGA, 10 фев 2010.

  1. NIGGA

    NIGGA New Member

    1. Даны числа от 1 до N.Найти S: 1/2+1/3+…+1/N
     
    NIGGA, 10 фев 2010
    #1
  2. Lexumer

    Lexumer New Member

    Program summa;
    Var N: integer;
    S: real;
    Begin
    S:=0;
    Write ('Введите число N=');
    Read (N);
    For N:=2 to N do
    S:=S+1/N;
    Write ('Сумма чисел равна S=', S);
    end.
     
    Lexumer, 10 фев 2010
    #2

Поделиться этой страницей

Наша группа