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

Question

Иляха

12 ноября, 17:05

+3

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