Впаскале ввести два числа k и n. вводить последовательно - вопрос №1662455 от Madina07152005 13.05.2022 05:36

Question

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

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