в паскале Ввести два числа K и N. Вводить последовательно числа, используя переменную R, пока R не будет равен K или N. На печать выдать сумму положительных чисел R.
Ответы
Ответ дал:
0
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.;
Вас заинтересует
7 лет назад
7 лет назад
9 лет назад
9 лет назад