Задача на QBasic.Найдите произведение чисел массива кратных числу K.

DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
    X(I) = INT(RND(1) * 20) + 1
    PRINT X(I); » «;
NEXT I
PRINT
INPUT «Введите число»; K
P = 1
FOR I = 1 TO 10
    IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
IF P = 1 THEN PRINT «Кратных нет» ELSE PRINT «P =»; P

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Adblock detector