Впаскале ввести два числа k и n. вводить последовательно - вопрос №1661778 от irinagerasimova1 15.06.2021 04:36

Question

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

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