Предмет: Информатика, автор: LUBUMAR

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

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


kylyshevo: не совсем понял 3 задание
kylyshevo: дошло,как делать 3 задание,сделать?)

Ответы

Автор ответа: kylyshevo
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.

Похожие вопросы
Предмет: Алгебра, автор: leks19792002