Pascal цикл while

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

Question

Информатика

Альфред

8 августа, 10:16

Pascal цикл while

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

+3

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

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