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

disel
1
2
3
4
5
6
7
8
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