Question

(язык паскаль) вычислите сумму чисел вводимых с клавиатуры, окончание ввода число 0.

Answer 1

Var k,sum: real;
begin
read(n);
for var i:=1 to n do
begin
read(k);
sum:=sum+k;
end;
writeln(sum);
end.

Answer 2

Для вычисления суммы чисел, вводимых с клавиатуры, пока не будет введено число 0, вы можете использовать следующий код на языке Pascal:

pascalCopy code
program SumNumbers;

var
  num, sum: integer;

begin
  sum := 0;
  
  writeln('Введите числа для суммирования (для завершения введите 0):');
  
  repeat
    readln(num);
    sum := sum + num;
  until num = 0;
  
  writeln('Сумма введенных чисел: ', sum);
end.

Скопируйте этот код в среду разработки Pascal и запустите программу. Программа будет просить вас вводить числа, пока не будет введен 0, после чего она выведет сумму всех введенных чисел (исключая 0).