Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K - Turbo Pascal
Формулировка задачи:
Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K. Если таких чисел в наборе нет, то вывести 0
Решение задачи: «Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K»
textual
Листинг программы
Var k,m,j,i:integer; Begin write('Введите k: ');readln(k); i:=0;j:=0; Repeat inc(i); write('Введите ',i,'-ое число(окончание ввода число 0): '); readln(m); if (k=m)and(j=0) then j:=i; Until m=0; writeln(j); readln; End.
Объяснение кода листинга программы
- В начале кода объявляются переменные k, m, j, i типа integer.
- Затем идет запрос на ввод значения k с помощью функции readln.
- Далее инициализируются переменные i и j нулем.
- Затем начинается цикл Repeat, который будет выполняться до тех пор, пока значение переменной m не станет равным нулю.
- Внутри цикла увеличивается значение переменной i.
- После этого запрашивается ввод i-го числа с помощью функции readln.
- Затем проверяется условие (k=m)and(j=0), если оно истинно, то значение переменной j присваивается значению переменной i.
- Цикл Repeat продолжается до тех пор, пока значение переменной m не станет равным нулю.
- По окончании цикла выводится значение переменной j с помощью функции writeln.
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д