Дана последовательность. В ней нужно найти наименьшее число кратное 7
Категория: Basic
2011-09-16 16:34:00
Дана последовательность. В ней нужно найти наименьшее число кратное 7. Кол-во чисел не превышает 700. Введенные числа не превышают по модулю 40000. Последовательность заканчивается 0. 0 в последовательность не входит.
code: #basic
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"
Поделиться: