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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.;