Напишите программу которая вводит последовательность целых чисел заканчивающихся нулём и определяет сколько из этих чисел
Мы отправили письмо со ссылкой на смену пароля на username@mail.ru.
Если письма нет, проверь папку «Спам».
Чтобы вопрос опубликовался, войди или зарегистрируйся
Нужна регистрация на Учи.ру
«Ваш урок» теперь называется Учи.Ответы. Чтобы зайти на сайт, используй логин и пароль от Учи.ру. Если у тебя их нет, зарегистрируйся на платформе.
Напишите программу, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет, верно ли, что все знаки
begin
var n:=ReadInteger(‘Количество строк в массиве:’);
var m:=ReadInteger(‘Количество столбцов в массиве:’);
Writeln(‘*** Исходный массив [‘,n,’,’,m,’] ***’);
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*’-‘);
for var j:=0 to m-1 do a[1,j]:=5; a.Println(4)
end.
<u>Пример</u>
Количество строк в массиве: 6
Количество столбцов в массиве: 8
*** Исходный массив [6,8] ***
9 -3 -27 -90 43 -54 0 -49
-2 91 -12 -10 -21 19 52 5
26 41 79 98 91 -50 87 -50
-23 -24 -63 17 -59 75 -43 -62
-27 -13 93 2 -58 -43 -22 -90
5 94 90 -26 81 46 5 -12
———————————
9 -3 -27 -90 43 -54 0 -49
5 5 5 5 5 5 5 5
26 41 79 98 91 -50 87 -50
-23 -24 -63 17 -59 75 -43 -62
-27 -13 93 2 -58 -43 -22 -90
5 94 90 -26 81 46 5 -12
Напишите программу. значение наименьшего числа.
Напишите программу, которая в последовательности целых чисел определяет значение наименьшего числа, из всех четных введенных чисел. Программа получает на вход целые положительные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Количество введенных чисел не превышает 1000. Все числа не превышают 30000. Среди введенных чисел есть хотя бы одно четное
Программа должна вывести одно число: наименьшее из всех четных введенных чисел.
Пример работы программы:
Входные данные: 10, 7, 12, 0.
Выходные данные: 10.
Решение:
Код программы на Паскале (Способ 1):
Напишите программу которая вводит последовательность целых чисел
Рассмотрим одну из задач части 3 ГИА по информатике.
На момент написания статьи она имела номер 20.2 в КИМ.
Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 7.
Я приведу свой метод рассуждений для решения этой задачи.
В задаче не сказано, сколько чисел вводится, зато известно условие, при котором заканчивается последовательность чисел (0 — признак окончания ввода). Для таких целей используется цикл с пред- или пост- условием. Т.е. такие циклы выполняются в зависимости от условия. Если бы нам было известно количество вводимых символов, мы бы использовали цикл со счетчиком (цикл FOR).
Цикл с предусловием (тело цикла выполняется пока условие ИСТИНО)
Цикл с постусловием (тело цикла выполняется до тех пор пока условие ЛОЖНО)
Цикл со счетчиком (тело цикла выполняется определенное количество раз (n))
В нашем случае последовательность чисел вводится до тех пор, пока не будет введен ноль. Как только будет введен ноль, мы выйдем из цикла. Для осуществления этого нам больше всего подходит цикл WHILE («пока» с англ.).
Запишем это условие на языке программирования:
Итак, в цикле мы будем вводить значения для переменной a до тех пор, пока не введем ноль. Но есть проблема. Откуда условию будет известно, чему равно значение переменной а, если мы его еще не ввели. Поэтому нам придется до цикла еще раз использовать оператор READLN(A) для ввода значения для переменной а.
Перейдем к условию задачи. Что нам нужно сделать с введенными числами?
« последовательности целых чисел определяет количество чётных чисел, кратных 7 » — вот ответ на наш вопрос. Таким образом, нам необходимо проверять условия:
- четное число или нет,
- кратно ли числу 7 или нет
и посчитать количество таких чисел.
Для проверки нам понадобится такая конструкция как УСЛОВИЕ
(если действие одно, то операторные скобки begin.. end можно опустить)
Перепишем то, что мы уже имеем и добавим условие с проверкой на четность и кратность 7. Для этого используем оператор остатка от деления MOD. Мы имеем два условия, они будут связываться оператором AND, так как нам необходимо выполнения этих 2-х условий одновременно. Если бы требовалось выполнение хотя бы одного из условий, мы бы использовали логический оператор OR.
Добавим условие в тело цикла перед оператором READLN. Позже скажу почему.
Осталось определится: какие же действия должны выполняться если условие ИСТИНО. В задаче требуется найти количество элементов, удовлетворяющие условию.
- подсчет количества по формуле N:=N +1
- подсчет суммы по формуле S:=S+a
Нам требуется найти количество, поэтому запишем эту формулу в действие для УСЛОВИЯ.
Осталось вывести результат с помощью оператора WRITELN(N). Результатом будет являтся значение переменной N.
Также добавим блок объявления переменных, используемых в программе. Получим готовое решение задачи: