Переборные задачи

Переборные задачи

Чтобы решить переборную задачу, нужно:
Перебрать все варианты;
Проверить условие;
Выбрать подходящие значения.

В основе программы:
FOR ПАРАМЕТР= начало TO конец STEP шаг
ТЕЛО ЦИКЛА
NEXT ПАРАМЕТР
Здесь перебираются варианты значений
Здесь происходит проверка условия и нужные вычисления

Помни!!!
FOR P = 3 TO 10 STEP 5
P=P+2 { или INPUT P}
NEXT P
Так нельзя!!!
На экране:
3
8
FOR P = 3 TO 10 STEP 5
PRINT P
NEXT P

Задача №1
На промежутке от 1 до N найти все числа, которые делятся на свою последнюю цифру.
Решение:
Что дано?
Какие значения нужно перебрать?
Какое условие надо проверить?
Что нужно сделать с выбранными значениями?

Мы выяснили:
FOR X = 1 TO N
CLS
PRINT “ВВЕДИ КОНЕЧНОЕ ЗНАЧЕНИЕ”
INPUT N
NEXT X
END
IF X MOD посл.цифра = 0 THEN PRINT X

Итак:
CLS
PRINT “ВВЕДИ КОНЕЧНОЕ ЗНАЧЕНИЕ”
INPUT N
FOR X = 1 TO N
C= X MOD 10
IF X MOD C = 0 THEN PRINT X
NEXT X
END
Протестируйте решение при N=15

Окончательный вариант
CLS
PRINT “ВВЕДИ КОНЕЧНОЕ ЗНАЧЕНИЕ”
INPUT N
FOR X = 1 TO N
C= X MOD 10
IF C<>0 THEN IF X MOD C = 0 THEN PRINT X
NEXT X
END

Задача №2 (сами)
На промежутке от 1 до N найти числа, которые делятся на 3 или на 5. Сколько их?

Задача №3
Решение:
Что дано?
Какие значения нужно перебрать?
Какое условие надо проверить?
Что нужно сделать с выбранными значениями?
Найти все трехзначные числа, которые кратны 7 и сумма цифр которых кратна 7. Сколько их?

CLS
FOR X = 100 TO 999
Мы выяснили:
IF (X MOD 7 = 0) AND (сумма цифр MOD 7=0) THEN
PRINT X
K = K + 1
END IF
NEXT X
PRINT “ВСЕГО:”, K
END

Определение суммы цифр трехзначного числа:
Первая цифра:
C1= X \ 100
Вторая цифра:
C2= X \ 10 MOD 10
Третья цифра:
C3= X MOD 10
Сумма цифр:
S = C1 + C2 + C3

CLS
FOR X = 100 TO 999
C1= X \100
С2 =X \10 MOD 10
C3 = X MOD 10
S=C1 + C2 + C3
IF (X MOD 7=0) AND (S MOD 7 =0) THEN
PRINT X
K = K + 1
END IF
NEXT X
PRINT “ВСЕГО:”, K
END
Окончательный вариант

Задачи №4,5,6 (сами)
Заданы начало и конец катушки автобусных билетов (четырехзначные номера). Напечатать все счастливые билеты на катушке. Сколько их?
Дано натуральное число N. Вывести на экран все его делители.
Дано натуральное число N. Простое ли оно?

Задача №7 (для любознательных)
Найти трехзначное число, квадрат которого оканчивается тремя одинаковыми цифрами, отличными от нуля.