Последовательно запрашивая у пользователя произвольные числа, пока не будет введён 0. Вычислить количество положительных и отрицательных чисел и их суммы

Категория: Basic
2012-03-16 16:14:54
code: #basic
DO
INPUT"vvedite chislo ",a
IF a>0 THEN kp=kp+1:sp=sp+a
IF a<0 THEN ko=ko+1:so=so+a
LOOP UNTIL a=0
PRINT"kol. pol=";kp
PRINT"som pol=";sp
PRINT"kol. otr=";ko
PRINT"sum otr=";so

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: произвольные числа, положительные, отрицательные, qbasic, сумма, последовательность, студенты