profile
Опубликовано 5 лет назад по предмету Информатика от swh77538

Написать программу вычисления суммы целых чисел от 1 до n, запрашиваемого с клавиатуры. Pascal ABC

  1. Ответ
    Ответ дан pacixor
    var
      i, n: integer;
      sum: longint;
    begin
    write('n = ');
    readln(n);
    for i := 1 to n do sum := sum + i;
    writeln('Сумма чисел от 1 до ', n , ' = ', sum);
    end.
  2. Ответ
    Ответ дан DonPedro80
    var
      s,n:integer;
    begin
      Write('Введите n:');
      Readln(n);
      s:=n+(n*(n-1)) div 2; { сумма арифметической прогрессии }
      Writeln('Сумма чисел от 1 до ',n,' равна ',s)
    end.
Самые новые вопросы