Question

в паскале Ввести два числа K и N. Вводить последовательно числа, используя переменную R, пока R не будет равен K или N. На печать выдать сумму положительных чисел R.

Answer 1

var N,R,K,S: integer;

begin

read (K,N);

while (R<>K) and (R<>N) do

begin

read(R)

if R>0 then S:=S+R;

end;

write(S)

end.;