Суммировать вводимые ненулевые числа пока не будет введено число нуль.После этого вводимые числа следует вычитать из полученной ранее суммы,пока вновь не будет введено нулевое число.Определить итоговую сумму и количество слагаемых первой и второй группы- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
DO
    INPUT a
    s = s + a
    IF a THEN i = i + 1
LOOP WHILE a
DO
    INPUT a
    s = s - a
    IF a THEN j = j + 1
LOOP WHILE a
PRINT "s = "; s
PRINT i, j

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

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

Leave a Comment