Задать вопрос Регистрация
Помочь другим

  • Дано N-произвольных чисел найти их сумму.

Ответы 1

  • var

      n, i: integer;

      a, s: real;  //a - вводимое число, s - сумма чисел

     

    begin

      s:= 0;  //Обнуляем значение суммы

      writeln('Введите N');

      readln(N);  //Вводим N

      for i:= 1 to N do  {N раз вводим число и каждый раз прибавляем введенное число к значению суммы}

      begin

        writeln('Введите число'); 

        readln(a);

        s:= s + a;

      end;

      writeln('Сумма введенных чисел равна:  ', s);  //Выводим сумму

    end.

    Если все правильно, отметь решение как лучшее)

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years