1. (КИМ
ГИА-2016).
Напишите программу, которая в
последовательности натуральных чисел
определяет минимальное число, оканчивающееся
на 4. Программа получает на вход количество
чисел в последовательности, а затем сами
числа. В последовательности всегда имеется
число, оканчивающееся на 4.
Количество чисел не превышает 1000.
Введённые числа не превышают 30 000.
Программа должна вывести одно число –
минимальное число, оканчивающееся на 4.
Пример работы программы:
Входные данные
Выходные данные
14 24 144 22 12 0
168
Возможное решение:
var n,i,a,min: integer;
begin
readln(n);
min:=30001 for i:=1 to n do
begin
readln(a) if (a mod 10 =
4) and (a < min)
then min:=
a;
end;
writeln(min)
end.
2. (КИМ ГИА-2013). Напишите программу,
которая в последовательности натуральных чисел определяет сумму всех чисел,
кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные
числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит в
последовательность). Количество чисел не превышает 1000. Введённые числа не
превышают 30 000.
Программа должна вывести одно число: сумму всех чисел, кратных 6 и
оканчивающихся на 4.
Пример работы программы:
Входные данные
Выходные данные
14 24 144 22 12 0
168
Возможное решение:
var a, s: integer;
begin
s:= 0;
readln(a);
while a<>0 do begin
if (a mod 6 = 0) and (a mod 10 = 4) then
s := s + a;
readln(a); end;
writeln(s)
end.
3. (КИМ-2012). Напишите программу,
которая в последовательности целых чисел определяет количество чётных чисел,
кратных 7. Программа получает на вход целые числа, количество введённых чисел
неизвестно, последовательность чисел заканчивается числом 0 (0 – признак
окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30
000. Программа должна вывести одно число: количество чётных чисел, кратных 7.
Пример работы программы:
Входные данные
Выходные данные
-32 14 17 0
1
Возможное решение:
var a, k:
integer;
begin t:=0;
readln(a);
while a<>0 do begin
if (a mod 2 = 0) and (a
mod 7 = 0) then k :=
k + 1;
readln(a);
end;
writeln(k)
end.
4.
Напишите программу, которая в
последовательности натуральных чисел
определяет минимальное положительное число, кратное 5.
Программа получает на вход количество
чисел в последовательности, а затем сами
числа. В последовательности всегда имеется
число, делящееся на 5.
Количество чисел не превышает 1000.
Введённые числа не превышают 30 000.
Программа должна вывести одно число –
минимальное положительное число, кратное 5.
Пример работы программы:
Входные данные
Выходные данные
4 -5 10 6 25
10
Возможное решение:
var n,i,a,min: integer;
begin
readln(n);
min:=30001 for i:=1 to n do
begin
readln(a) if (a>0) and (a mod
5 =
0) and (a < min)
then min:=
a;
end;
writeln(min)
end.
4.
Напишите программу, которая вычисляет
произведение членов последовательности,
кратных 5. Программа получает на вход целые
числа, количество введённых чисел
неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак
окончания ввода, не входит в
последовательность) . Количество чисел не
превышает 1000. Введённые числа по модулю не
превышают 30 000.
Программа должна вывести одно число:
произведение членов последовательности,
кратных 5.
Пример работы программы:
Входные данные
Выходные данные
8 5 -2 0
5
5.
Напишите программу, которая в
последовательности целых чисел определяет
количество двузначных чисел, кратных 5.
Программа получает на вход целые числа,
количество введённых чисел неизвестно,
последовательность чисел заканчивается
числом 0 (0 – признак окончания ввода, не
входит в последовательность). Количество
чисел не превышает 1000. Введённые числа по
модулю не превышают 30000.
Программа должна вывести одно число:
количество двузначных чисел, кратных 5.
Пример работы программы:
Входные данные
Выходные данные
10 5 120 14 0
1
6.
Напишите программу, которая в
последовательности целых чисел определяет
количество чисел, кратных 5 или 7. Программа
получает на вход целые числа, количество
введённых чисел неизвестно,
последовательность чисел заканчивается
числом 0 (0 – признак окончания ввода, не
входит в последовательность). Количество
чисел не превышает 1000. Введённые числа по
модулю не превышают 30000.
Программа должна вывести одно число:
количество чисел, кратных 5 или 7.
Пример работы программы:
Входные данные
Выходные данные
-22 25 -14
0
2
7.
Напишите программу, которая в
последовательности натуральных чисел находит
наименьшее число, кратное 3. Программа
получает на вход целые числа, количество
введённых чисел неизвестно,
последовательность чисел заканчивается
числом 0 (0 – признак окончания ввода, не
является членом последовательности).
Количество чисел не превышает 1000.
Введённые числа не превышают 30000.
Гарантируется, что в последовательности есть
хотя бы одно число, кратное 3.
Программа должна вывести наименьшее
число, кратное 3.
Пример работы программы:
Входные данные
Выходные данные
45 10 9 0
9
8.
Напишите программу, которая в
последовательности целых чисел находит
среднее арифметическое чисел, кратных 9, или
сообщает, что таких чисел нет. Программа
получает на вход целые числа, количество
введённых чисел неизвестно,
последовательность чисел заканчивается
числом 0 (0 – признак окончания ввода, не
является членом последовательности).
Количество чисел не превышает 100. Введённые
числа по модулю не превышают 300.
Программа должна вывести среднее
арифметическое чисел, кратных 9, или вывести
NO, если таких чисел в последовательности
нет.
