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

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

введен 0.

Question

Информатика

Федосий

5 июня, 00:24

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

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

введен 0.

+3

Ответы (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.