Написать программу для подсчета суммы

введенных с клавиатуры чисел до тех пор, пока не будет

введен 0.

Question

Информатика

Увар

17 сентября, 22:51

Написать программу для подсчета суммы

введенных с клавиатуры чисел до тех пор, пока не будет

введен 0.

+1

Ответы (1)

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

Гораций · Answer 1

Var a, s:integer;

begin

s:=0;

readln (a) ;

while a0 do

begin

s:=s+a;

readln (a) ;

end;

writeln ('s = ', s) ;

end.

Пример:

5

8

3

4

6

0

s = 26

Написать программу для подсчета суммывведенных с клавиатуры чисел до тех пор, пока не будетвведен 0.

Написать программу для подсчета суммы

введенных с клавиатуры чисел до тех пор, пока не будет

введен 0.