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

Question

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

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