УМК ШКОЛА
МО ГУМАНИТАРИЕВ
МО МАТЕМАТИКОВ
МО КЛ. РУКОВОДИТЕЛЕЙ
МО НАЧАЛЬНЫХ КЛ.
ГОТОВИМСЯ К УРОКУ
КРУЖКИ, ТВОРЧЕСТВО
ФАКУЛЬТАТИВ
ГРАФИКИ, ПЛАНЫ
ПСИХОЛОГУ
ДОКЛАДЫ, ДИССЕРТ.
ЦЕНТР ПОМОЩИ ДЕТЯМ
ДЕТСКИЙ САД
АТТЕСТАЦИЯ ДОКУМ.
АТТЕСТАЦИЯ - ТЕСТЫ
ВПР, КДР
ОГЭ ЗАДАНИЯ
ЕГЭ ЗАДАНИЯ

ОГЭ 9 класс
Математика
Русский язык
Информатика
Георгафия
Биология


ЕГЭ 11 класс
Математика
Русский язык
Информатика
Физика
Обществознание
Биология


Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, крат
ОГЭ ЕГЭ - РЕШЕНИЯ ЗАДАНИЙ > ** Программирование и алгоритмизация > Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, крат
 

Страницы: 1 ... 11 12 13 14 15 16

Задания - решение
№ 53 Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся
на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 100. Введённые числа не превышают 300.
Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.

Пример работы программы:

Входные данные Выходные данные
14 168
24
144
22
12
0


РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – сумма всех чисел, кратных 6 и оканчивающихся
на 4

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);

write('Введите целые числа не превышают 300 ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 10 = 4) and (x[i] mod 6 = 0) then S := S + x[i];
if (x[i] = 0) then i:=y;
end;
writeln(S);
end.
№ 54 Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся
на 3.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число – максимальное число, оканчивающееся на 3.

Пример работы программы:

Входные данные Выходные данные
3 23
13
23
3


РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – максимальное число, оканчивающееся на 3

var
х: array [1..1000] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 1000 ');
readln (y);

write('Введите целые числа не превышают 3000 ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 10 = 3) and (x[i] > S) then S := x[i];
end;
writeln(S);
end.
№ 55 Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число – минимальное число, кратное 3.

Пример работы программы:

Входные данные Выходные данные
3 12
21
12
31


РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – минимальное число, кратное 3

var
х: array [1..1000] of integer;
S,y: integer;
begin
S:= 30001;
write('Сколько чисел в массиве (не более 1000 ');
readln (y);

write('Введите целые числа не превышают 3000 ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 3 = 0) and (x[i] < S) then S := x[i];
end;
writeln(S);
end.
№ 56 Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.
Программа должна вывести одно число: количество чисел, кратных 6 и оканчивающихся на 4.

Пример работы программы:

Входные данные Выходные данные
3 2
24
25
54


РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – количество чисел, кратных 6 и оканчивающихся на 4

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);

write('Введите целые числа не превышают 300 ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 10 = 4) and (x[i] mod 6 = 0) then S := S + 1;
if (x[i] = 0) then i:=y;
end;
writeln(S);
end.

Страницы: 1 ... 11 12 13 14 15 16
 
Перейти на другой форум:
Задания
• Разбор задачи №18 Найдите все значения a , при каждом из которых система уравнений (36)
• Разбор задачи №4 и №5 Вероятность того, что батарейка бракованная, равна 0,08 (35)
• Разбор задачи №10 Имеется два сосуда. Первый содержит 50 кг, а второй — 10 кг (35)
• Разбор задачи №12 Найдите точку максимума функции (35)
• Разбор задачи №13 Решите уравнение 750 𝑐𝑜𝑠3𝑥 +6⋅125 1/3+ (35)
• Разбор задачи №14 В правильную треугольную пирамиду с боковым ребром 4 (35)
• Разбор задачи №15 Решите неравенство 16 − 3 x (35)
• Разбор задачи №16 В июне 2025 года Олег Вадимович планирует взять кредит в банке на 4 года (35)
• Разбор задачи №17 В трапеции ABCD с меньшим основанием BC точки E и F (35)
• Разбор задачи №19 Из k кг материала фабрика изготавливает n одинаковых деталей (35)



Логин: Пароль: • Забыли пароль? • Регистрация
Сайт сделан на SiNG cms © 2010-2020