Series14. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе, меньших K.
Решение Дмитрий:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
использовать Файлы алг Series14 (арг цел K, рез цел n) нач файл файл1 n:=0 файл1:=открыть на чтение ("Series14.txt") цел A нц пока не конец файла(файл1) ввод файл1, A вывод A, " " если A<K и A<>0 то n:=n+1 все если A=0 то выход все кц закрыть(файл1) кон |
Series14.txt:
|
1 |
1 33 44 55 1 3345 6665 88895 36 84 2 4 65 -1 -5 0 3 5 |
Другие задачи из раздела Series можно посмотреть здесь.
Комментарии: