Сумма чисел от 1 до N

      Комментарии к записи Сумма чисел от 1 до N отключены

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 3 мес., 4 нед. назад.

  • Автор
    Сообщения
  • #3755

    Функция вычисляет сумму целых чисел, не превышающих заданного пользователем числа N.

    Решение:

    program functions_2;
    uses crt;
    var
      n: integer;
    function Sum(m: integer): integer;
    var i, S: integer;
    begin
      S:=0;
      for i:=1 to m do
      S:=S+i;
      Sum:=S;
    end;
    
    begin
      clrscr;
      write('N > '); read(n);
      write('Cумма чисел от 1 до ', n, ' = ', Sum(n));
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.