Cerne
6 год назад
Через бейсик не Паскаль
ОТВЕТЫ
Nemakev
Aug 7, 2019
DIM n AS INTEGER, a AS INTEGER
CLS
INPUT "n=", n
s = 0
PRINT "Вводите данные"
FOR i = 1 TO n
INPUT "", a
IF a gt; 0 THEN s = s + a
NEXT i
PRINT "S="; s
CLS
INPUT "n=", n
s = 0
PRINT "Вводите данные"
FOR i = 1 TO n
INPUT "", a
IF a gt; 0 THEN s = s + a
NEXT i
PRINT "S="; s
191
Смежные вопросы:
