Учащиеся 10, 11 классов, а также те, кто интересуется программированием!

Учащиеся 10, 11 классов, а также те, кто интересуется программированием!
Вашему вниманию предлагаются задачи, в которых при решении используются
неопределенные операторы цикла и вложенные циклы, а также решения этих задач: программы
на языке программирования QBasic..
Опыт решения этих задач может пригодиться при подготовке к контрольной работе.
Кроме того, публикуются задачи для самостоятельного решения.
Задача 1.
Дано натуральное число а. Найти а, а2, а3, …. Напечатать все те из них, которые
меньше 100.
Решение на QBasic
Решение на Pascal
CLS
k=1
b=a
INPUT “Введите число a”;b
WHILE b<100
b=a^k
k= k+1
PRINT “a=”;b
WEND
Задача 2.
Составить программу поиска минимального числа, которое больше 300 и делится
нацело на 19.
Решение на QBasic
Решение на Pascal
CLS
N=301
WHILE N MOD 19<>0
PRINT N
N=N+1
WEND
Задача 3.
Написать программу нахождения наибольшего общего делителя(НОД) двух
натуральных чисел.
Решение на QBasic
Решение на Pascal
CLS
INPUT “Введите числа Х, Y”;Х,Y
DO
IFX>Y THEN X=X MOD Y ELSE Y=Y MOD X
LOOP UNTIL X=0 OR Y=0
PRINT “НOD(X,Y)=”;X+Y
END
Задача 4.
Известна сумма, выданная на покупки., цены и количество купленных товаров.
Составить программу планирования закупки товаров в магазине на выданную сумму.
Решение на QBasic
Решение на Pascal
CLS
P=0
INPUT “Введите выданную сумму ”;S
DO
INPUT “Введите цену и количество товара”;С,К
P=P+C*K
PRINT “ стоимость покупки P= ”;P
LOOP UNTIL S<P
PRINT “P превысила S”
END
Задача 5.
Дано натуральное число . Найти сумму цифр в нем..
Решение на QBasic
Решение на Pascal
CLS
S=0
INPUT “Введите число N”;N
M=N
WHILE M<>0
R=M MOD 10
S=S+R
M= M \ 10
WEND
PRINT “Сумма цифр в числе”;N;”=”;S
Задача 6.
Дано натуральное число n. Вычислить: 1/1 + 1/2 + 1/3 +… c заданной точностью .EPS.
Решение на QBasic
Решение на Pascal
CLS
S=0
I=1
A=1
WHILE ABS(A)>EPS
A=1/I
S=S+A
I=I+1
WEND
PRINT “S=”;S
Задача 7.
Вывести на экран числа в виде таблицы:
11 12 13 14 15 16 17 18 19 20
11 12 13 14 15 16 17 18 19 20
11 12 13 14 15 16 17 18 19 20
11 12 13 14 15 16 17 18 19 20
11 12 13 14 15 16 17 18 19 20
11 12 13 14 15 16 17 18 19 20
Решение на QBasic
CLS
Решение на Pascal
FOR I=1 TO 6
FOR J=11 TO 20
PRINT J;
NEXT J
PRINT
NEXT I
END
Задача 8.
Вывести на экран числа в виде таблицы:
5 5 5 5 5
4 4 4 4
3 3 3
2 2
1
Решение на QBasic
Решение на Pascal
CLS
FOR I=5 TO 1 STEP -1
FOR J=1 TO I
PRINT I;
NEXT J
PRINT
NEXT I
END
Задача 9.
Вывести на экран числа в виде таблицы:
0
1
2
3
4
0
1 0
2 1 0
3 2 1 0
Решение на QBasic
Решение на Pascal
CLS
FOR I=1 TO 5
FOR J=1 TO I
K=I-J
PRINT K;
NEXT J
PRINT
NEXT I
END
Задача 10.
Найти все трехзначные симметричные натуральные числа из промежутка от А до В(А
и В вводятся с клавиатуры).
Решение на QBasic
CLS
INPUT “Введите число А”;а
INPUT “Введите число В”;b
FOR X=1 TO 9
Решение на Pascal
FOR Y=1 TO 9
FOR Z=1 TO 9
IF ((X=Z)and ((X*100+Y*10+Z)>A) and
((X*100+Y*10+Z)<B)) THEN PRINT X;Y;Z;” “;
NEXT Z
NEXT Y
NEXT X
END
Задачи для самостоятельного решения
Задача 10.Вкладчик открыл 1 марта счет в сбербанке, вложив 1000 рублей. Через каждый месяц
размер вклада увеличивается на 2% от имеющейся суммы. Определить:

за какой месяц величина ежемесячного увеличения вклада превысит 30 руб.

Через сколько месяцев размер вклада превысит 1200 руб.
Задача 11. Найти максимальное из натуральных чисел, не превышающих 300, которое нацело
делится на 38.
Задача 12. Вывести на экран все делители (от большего к меньшему) заданного целого числа N
(решить задачу при помощи цикла с предусловием).
Задача 13. Сколько раз данная цифра встречается в числе?
Задача 14. Найти самую большую цифру целого числа.
Задача 15. Дано натуральное число. Найти первую и последнюю цифры числа.
Задача 16. Даны натуральное число. Сколько раз данная цифра А встречается в данном числе?
Задача 17. Найти все такие тройки натуральных чисел X,Y,Z из интервала от 1 до 20, для которых
выполняется равенство: X2+Y2=Z2.
Задача 18. Найти все натуральные числа из промежутка от А до В , у которых количество
делителей превышает заданное число К.