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

Question

Алена

28 апреля, 07:57

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