Задание № 20-2(вариант 1)
Задача.
Напишите программу, которая в последовательности натуральных чисел определяет
минимальное положительное число кратное 5.
Программа получает
на вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, делящееся на 5.
Количество чисел
не превышает 1000. Введенные числа по модулю не превышают 30000.
Программа на языке Q-Basic
10 PRINT
"Минимальное положительное число, делящееся на 5”
20 INPUT " Введите
размерность массива”;N
30 DIM A (N)
40 FOR I = 1 TO N
50 INPUT A (I)
60 NEXT I
80 FOR I = 1 TO N
90 IF A (I) MOD 5 = 0 AND
A (I) > 0 THEN PRINT A (I)
100 NEXT I
105 MIN = 30001
115 FOR I = 1 TO N
130 IF A (I) < MIN AND
A (I) > 0 AND A (I) MOD 5 = 0 THEN MIN = A (I)
135 NEXT I
110 PRINT
"MIN="; MIN
120 END
|
Входные данные
|
|
Выходные данные
|
4
-5
10
6
25
|
|
10
|
|
Задание № 20-2(вариант 2)
Задача.
Напишите программу, которая в последовательности натуральных чисел определяет
максимальное отрицательное число, оканчивающееся на 3.
Программа получает
на вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, оканчивающееся на 3.
Количество чисел
не превышает 1000. Введенные числа по модулю не превышают 30000.
Программа должна
вывести одно число – максимальное отрицательное число, делящееся на 3.
Программа на языке Q-Basic
10 PRINT
"Максимальное отрицательное число, оканчивающееся на 3"
20 INPUT " Введите
размерность массива"; N
30 DIM A (N)
40 FOR i = 1 TO N
50 INPUT A (I)
60 NEXT I
70 FOR I = 1 TO N
80 IF ABS (A (I)) MOD 10
= 3 THEN PRINT A (I)
90 NEXT I
105 MAX = -30001
115 FOR I = 1 TO N
130 IF A (I) > MAX AND
ABS (A (I)) MOD 10 = 3 AND A (I) < 0 THEN MAX =
A (I)
135 NEXT I
110 PRINT
"Max="; MAX
120 END
|
Входные данные
|
|
Выходные данные
|
4
-3
-13
2
33
|
|
-3
|
|
Задание № 20-2(вариант 4)
Задача.
Напишите
программу, которая в последовательности натуральных чисел определяет
максимальное четное число.
Программа получает
на вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется четное число.
Количество чисел
не превышает 1000. Введенные числа по модулю не превышают 30000.
Программа должна
вывести одно число – максимальное четное число.
Программа на языке Q-Basic
10 PRINT
"Максимальное четное число"
20 INPUT " Введите
размерность массива"; N
30 DIM A (N)
40 FOR I = 1 TO N
50 INPUT A (I)
60 NEXT I
80 FOR I = 1 TO N
90 IF A (I) MOD 2 = 0 AND
A (I) > 0 THEN PRINT A (I)
100 NEXT I
105 MAX = -3000
115 FOR I = 1 TO N
130 IF A (I) > MAX AND
A (I) MOD 2 = 0 AND A (I) > 0 THEN MAX = A (I)
135 NEXT I
110 PRINT
"MAX="; MAX
120 END
|
Входные данные
|
|
Выходные данные
|
3
10
99
42
|
|
42
|
|
Задание № 20-2(вариант 6)
Задача.
Напишите
программу, которая в последовательности натуральных чисел определяет
максимальное число, оканчивающееся на 1.
Программа получает
на вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда есть число, оканчивающееся на 1.
Количество чисел
не превышает 1000. Введенные числа по модулю не превышают 30000.
Программа должна
вывести одно максимальное число, оканчивающееся на 1.
Программа на языке Q-Basic
10 PRINT
"Максимальное число, оканчивающееся на 1"
20 INPUT " Введите
размерность массива"; n
30 DIM A (n)
40 FOR I = 1 TO n
50 INPUT a (I)
60 NEXT i
70 FOR i = 1 TO n
80 IF a(i) MOD 10 = 1
THEN PRINT a(i)
90 NEXT i
105 MAX = -30001
115 FOR i = 1 TO n
130 IF a(i) > MAX AND
a(i) MOD 10 = 1 THEN MAX = a(i)
135 NEXT i
110 PRINT
"Max="; MAX
120 END
|
Входные данные
|
|
Выходные данные
|
3
11
21
31
|
|
31
|
|
Задание № 20-2(вариант 10)
Задача.
Напишите
программу, которая в последовательности натуральных чисел определяет сумму всех
чисел кратных 3 и оканчивающихся на 6.
Программа получает
на вход натуральные числа, количество введенных чисел неизвестно,
последовательность заканчивается 0. В последовательности всегда есть число,
оканчивающееся на 6.
Количество чисел
не превышает 1000. Введенные числа по модулю не превышают 30000.
Программа должна
вывести сумму чисел кратных 3, оканчивающихся на 6.
Программа на языке Q-Basic
10 PRINT "Сумма
чисел кратных 3 оканчивающихся на 6"
20 INPUT " Введите
размерность массива"; n
30 DIM a(n)
40 FOR i = 1 TO n
50 INPUT a(i)
60 NEXT i
70 FOR i = 1 TO n
80 IF ABS(a(i)) MOD 10 =
6 AND a(i) MOD 3 = 0 THEN S = S + a(i)
90 NEXT i
110 PRINT "S=";
S
120 END
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.