Дана последовательность. В ней нужно найти наименьшее число кратное 7. Кол-во чисел не превышает 700. Введенные числа не превышают по модулю 40000. Последовательность заканчивается 0. 0 в последовательность не входит — QBasic(Бейсик)

disel 
min=40000
DO
INPUT a
IF a<>0 AND a MOD 7=0 AND a<min THEN min=a
LOOP UNTIL a=0
IF min<>40000 THEN PRINT min ELSE PRINT"takih chisel net"

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