Впаскале ввести два числа k и n. вводить последовательно - вопрос №1661553 от madeintower 07.01.2021 12:41

Question

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

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