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

Question

Агапа

5 июня, 17:08

+2

Ответы (1)

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

Исидора · Answer 1

var N, R, K, S: integer;

begin

read (K, N) ;

while (RK) and (RN) do

begin

read (R)

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

end;

write (S)

end.;