• РЕШИТЬ С ПОМОЩЬЮ ПАСКАЛЯ +ОБЪЯСНИТЬ ПОЧЕМУ ТАК!!ДАЮ МНОГО БАЛЛОВ

    ⦁ Вычислить сумму последовательности , где n вводится пользователем, и вывести ее на экран.
    ⦁ Вывести на экран количество вводимых пользователем чисел. Вычисления остановить, когда пользователь введет 0.
    ⦁ Вычислить сумму семи произвольных чисел.

Ответы 1

  • var

     ch: array[1..100] of real;

     i, n: integer;

     s: real;

    begin

     repeat

       inc(i);//+1  

       write($'Введите {i} число: ');

       readln(ch[i]);//записываем в массив число  

     until ch[i] = 0;//проверяется условие,если число равно 0 то прекращаем ввод

     write($'Введите,сколько чисел сложить:');

     readln(n);

     writeln;

     writeln($'Вы ввели {i} чисел');

     for i := 1 to n do

     begin

       s := ch[i] + s;//складываем числа n штук

     end;

     writeln($'Сумма чисел = {s}');

    end.

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

Войти через Google

или

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

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

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