Впаскале ввести два числа k и n. вводить последовательно - вопрос №1661953 от армен459 12.05.2023 14:50

Question

Информатика: Впаскале ввести два числа k и n. вводить последовательно числа, используя переменную r, пока r не будет равен k или n. на печать выдать сумму положительных чисел r.

армен459 · 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.; ...