Определить процент чисел, кратных N, и их сумму. При вводе числа -98765 закончить работу — QBasic(Бейсик)

INPUT "vvedite chislo N ", n
DO
    INPUT "vvedite chislo ", a
    IF a = -98765 THEN EXIT DO
    m = m + 1
    IF a MOD n = 0 THEN s = s + a: k = k + 1
LOOP
PRINT "summa="; s; " procent="; k / m * 100

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

Leave a Comment