Series35. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Признаком завершения каждого набора является число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах.
Решение Дмитрий:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
использовать Файлы алг Series35 (арг цел K, рез цел S) нач цел n,i файл файл1 n:=0 S:=0 цел A нц для i от 1 до K файл1:=открыть на чтение ("Series35_"+цел_в_лит(i)+".txt") вывод " набор№ ",i," => " n:=0 нц пока не конец файла(файл1) ввод файл1, A если A<>0 то вывод A, " " n:=n+1 иначе выход все кц вывод "Количество элементов в наборе= ", n, " ",нс S:=S+n закрыть(файл1) кц кон |
Файл Series35_1.txt
|
1 |
5 345 43 2 1 3 8 0 1 3345 66 |
Файл Series35_2.txt
|
1 |
88895 36 84 2 4 65 -1 -5 0 |
Файл Series35_3.txt
|
1 |
895 36 84 2 4 65 0 |
Файл Series35_4.txt
|
1 |
895 36 0 84 2 4 65 0 |
Файл Series35_5.txt
|
1 |
Другие задачи из раздела Series можно посмотреть здесь.
Комментарии: