1 2 3 4 5 6 7 8 | DIM A AS LONGCLSINPUT "Kol-vo chisel:", NFOR i = 1 TO N INPUT "Vvedite chislo", A IF A > 0 THEN S = S + ANEXTPRINT "Summa polojitelnyh:", S |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 | DIM A AS LONGCLSINPUT "Kol-vo chisel:", NFOR i = 1 TO N INPUT "Vvedite chislo", A IF A > 0 THEN S = S + ANEXTPRINT "Summa polojitelnyh:", S |
Тестирование выполнено в программе QB64 ( Скачать )