Question

Напишите программу,которая запрашивает у пользователя ввод чисел,пока не будет нажата цифра "ноль".На экран выводит сумму всех введенных чисел

Answer 1

Program numSum;
var inp,sum:longint;
begin 
 repeat 
  readln(inp);
  sum:=sum+inp; 
 until inp=0; write('Sum - ',sum); readln;
end.

Answer 2

Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
end.

Answer 3

Вот пример программы на языке Python, которая запрашивает у пользователя ввод чисел, пока не будет введена цифра "ноль", и выводит сумму всех введенных чисел:

sum = 0
while True:
    num = int(input("Введите число: "))
    if num == 0:
        break
    sum += num

print("Сумма всех введенных чисел:", sum)

Эта программа использует цикл `while True`, который будет выполняться бесконечно, пока не будет выполнено условие выхода из цикла. Внутри цикла программа запрашивает у пользователя ввод числа с помощью функции `input()`, преобразует введенное значение в целое число с помощью функции `int()`, и проверяет, равно ли введенное число нулю. Если число равно нулю, то цикл прерывается с помощью оператора `break`. В противном случае, число добавляется к переменной `sum`, которая хранит сумму всех введенных чисел.

После выхода из цикла, программа выводит на экран сумму всех введенных чисел с помощью функции `print()`.

Примечание: Приведенный выше код написан на языке Python. Если вам нужна программа на другом языке программирования, пожалуйста, уточните это.