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

надо начать задачю так x-число (меняется)

s-сумма

До цикла S:=0

Question

Информатика

Сергей

15 мая, 20:23

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

надо начать задачю так x-число (меняется)

s-сумма

До цикла S:=0

+5

Ответы (1)

Знаешь ответ?

Софа · Answer 1

Program Summa;

Uses Crt;

var n, s:integer;

begin

clrscr;

write ('Вводите числа конец ввода 0: ');

s:=0;

repeat

readln (n);

s:=s+n;

until (n=0);

writeln;

writeln ('Сумма чисел: ', s);

readkey;

end.