Напишите программу которая в последовательности натуральных чисел
Перейти к содержимому

Напишите программу которая в последовательности натуральных чисел

  • автор:

PASCAL & PYTHON

В заданиях, где встречается фраза «. Программа получает на вход количество чисел в последовательности. «
для ввода самих чисел и проверки на соответствие условию удобно использовать оператор for . to . do begin . end;

В заданиях, где встречается фраза «. последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность) . «
для ввода самих чисел и проверки на соответствие условию удобно использовать оператор while . do begin . end;
В этом случае число вводят с клавиатуры два раза до цикла, потом в цикле идет проверка условий и снова ввод следующего числа

Задача 1

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, кратное 5.

Пример работы программы:
Входные данные
Выходные данные

Пояснение: в данной программе будем использовать переменные i — переменная цикла, n — количество чисел в последовательности, a — вводимое число, max — для хранения найденного числа.
Мы ищем максимальное число, поэтому начальное значение max:=0 .
Условия отбора: кратность 5 ( a mod 5=0) и наибольшее ( a>max)
Текст программы

var i, n, a, max: integer; /объявление переменных
max:=0; /начальное значение max
readln(n); /ввод количества чисел в последовательности
for i:=1 to n do /цикл
readln(a); /ввод числа
if (a mod 5=0) and (a>max) then max:=a; /проверка условия и нахождение max
writeln(max); /вывод найденного максимального кратного 5
Задача 2

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6.

Пример работы программы:
Входные данные
Выходные данные

Пояснение: в данной программе будем использовать переменные n — количество чисел в последовательности, s — для хранения найденной суммы, k — переменная цикла, g — вводимое число.
Мы ищем сумму, поэтому начальное значение s:=0 .
Условие отбора кратность 6 ( g mod 6=0)
Текст программы

var n, s, k, g: integer; /объявление переменных
s:=0; /начальное значение суммы чисел
readln(n); /ввод количества чисел в последовательности
for k:=1 to n do /цикл
readln(g); /ввод числа
if (g mod 6=0) then s:=s+g; /проверка условия и нахождение суммы
writeln(s); /вывод суммы чисел кратных 6
Задача 3

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 4.

Пример работы программы:
Входные данные
Выходные данные

Пояснение: в данной программе будем использовать переменные n — количество чисел в последовательности, s — для хранения количества чисел кратных 4, k — переменная цикла, g — вводимое число.
Мы ищем количество, поэтому начальное значение s:=0 .
Условие отбора кратность 4 ( g mod 4=0)
Текст программы

var n, s, k, g: integer; /объявление переменных
s:=0; /начальное значение количества чисел кратных 4
readln(n); /ввод количества чисел в последовательности
for k:=1 to n do /цикл
readln(g); /ввод числа
if (g mod 4=0) then s:=s+1; /проверка условия и нахождение количества
writeln(s); /вывод количества чисел кратных 4
Задача 4

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, оканчивающихся на 3.

Пример работы программы:
Входные данные
Выходные данные

Пояснение: в данной программе будем использовать переменные n — количество чисел в последовательности, s — для хранения количества чисел оканчивающихся на 3, k — переменная цикла, a — вводимое число.
Мы ищем количество, поэтому начальное значение s:=0 .
Условие число оканчивается на 3 ( a mod 10=3)
Текст программы

var n, s, k, a: integer; /объявление переменных
s:=0; /начальное значение количества чисел оканчивающихся на 3
readln(n); /ввод количества чисел в последовательности
for k:=1 to n do /цикл
readln(a); /ввод числа
if (a mod 10=3) then s:=s+1; /проверка условия и нахождение количества
writeln(s); /вывод количества чисел оканчивающихся на 3

Задача 5
Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число, оканчивающиеся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число оканчивающиеся на 8. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — минимальное чётное число, оканчивающиеся на 8.
Пример работы программы:

Входные данные
Выходные данные

Пояснение: в данной программе будем использовать переменные n — количество чисел в последовательности, i — переменная цикла, min — для хранения минимального четного числа оканчивающихся на 8, a — вводимое число.
Мы ищем минимальное, поэтому начальное значение min :=30001 (самое большое число) .
Условия: четность ( a mod 2=0) , окончание на 8 ( a mod 10=8), минимальное ( a
Текст программы
var n,i,a,min: integer; /объявление переменных
begin
readln(n);/ввод количества чисел в последовательности
min:=30001; /начальное значение минимального
for i:=1 to n do /цикл
begin
readln(a); /ввод числа
if (a mod 2=0) adn (a mod 10=8) and (amin:=a; /проверка условий
end;
writeln(min) /вывод минимального четного, оканчивающегося на 8
end.


Задача 6

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

Pyton Напишите программу, которая в последовательности натуральных чисел

Напишите программу, которая в последовательности натуральных чисел определяет сумму трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000.Программа должна вывести одно число: сумму трёхзначных чисел, кратных 4

Голосование за лучший ответ

Если есть вопросы пиши в комментарии

QarkМыслитель (6570) 2 года назад

Вместо while можно использовать for, чтобы оптимизировать код

Напишите программу, которая в последовательности.

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающее на 3

Количество введенных чисел не превышает 1000. Все числа не превышают 30000.

Программа должна вывести одно число: количество чисел, оканчивающихся на 3.

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

Входные данные: 3, 13, 23, 24.

Выходные данные: 2.

Решение:

Код программы на паскале:

 Program nomer_1; Var a, i, n, k: integer; Begin Write('Vvedite n '); readln(n); k:=0; For i:=1 to n do begin readln (a); if (a mod 10 =3) then k:=k+1; end; Writeln(k); End. 

Напишите программу которая в последовательности натуральных чисел

Автоматическое списание средств и открытие следующей мастер-группы каждый месяц.

Нажимая кнопку «купить», Вы выражаете своё согласие с офертой оказания услуг и принимаете их условия Купить Купить

Ты включаешь автопродление — 25-го числа каждого месяца доступ к купленным курсам будет автоматически продлеваться. Деньги будут списываться с одной из привязанных к учетной записи банковских карт. Управлять автопродлением можно из раздела «Финансы»

Для активации регулярного платежа мы спишем небольшую сумму с карты и сразу её вернем

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *