Pascal цикл while

Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода второго нуля.

Question

Информатика

Рим

21 августа, 18:10

Pascal цикл while

Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода второго нуля.

+5

Ответы (1)

Знаете ответ на вопрос?

Нинюра · Answer 1

Var a, s, k:integer;

begin

writeln ('Вводите числа:') ;

k:=0;

while k<2 do

begin

readln (a) ;

s:=s+a;

if a=0 then k:=k+1;

end;

writeln ('s = ', s) ;

end.

Пример:

Вводите числа: 4

9

5

0

1

3

2

0

s = 24

Pascal цикл whileПоследовательно вводятся числа, найти их сумму. Ввод остановить после ввода второго нуля.

Pascal цикл while

Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода второго нуля.