Дано целое число К и набор ненулевых целых чисел; Признак его завершения - число 0. Вывести кол-во чисел в наборе, меньших К. - Turbo Pascal
Формулировка задачи:
помогите пожалуйста
Решение задачи: «Дано целое число К и набор ненулевых целых чисел; Признак его завершения - число 0. Вывести кол-во чисел в наборе, меньших К.»
textual
Листинг программы
var n,k,l: integer; Begin readln(k); l:=0; repeat readln(n); if n<k then inc(l) until n=0; writeln(l); readln End.
Объяснение кода листинга программы
В данном коде на языке Turbo Pascal заданы следующие условия:
- Переменная
n
представляет собой целое число, вводимое пользователем с клавиатуры. - Переменная
k
содержит целое число, которое является конечным условием для цикла. - Переменная
l
инициализируется значением 0 и используется для подсчета количества чисел, меньшихk
. - Цикл повторяется до тех пор, пока значение переменной
n
не станет равным 0. - Внутри цикла происходит сравнение значения переменной
n
сk
. Еслиn
меньшеk
, то значение переменнойl
увеличивается на единицу. - После окончания цикла выводится значение переменной
l
. - После вывода значения переменной
l
программа завершается и ожидает ввода от пользователя. Таким образом, данный код позволяет подсчитать количество чисел в наборе, меньших заданного числаk
.