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

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

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment