Proc26. Описать функцию IsPower5($$K$$) логического типа, возвращающую True, если целый параметр $$K$$ ($$> 0$$) является степенью числа 5, и False в противном случае. С ее помощью найти количество степеней числа 5 в наборе из 10 целых положительных чисел.
Решение Дмитрий:
|
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 26 27 28 29 30 31 |
использовать Файлы алг Proc 26 нач лог Answer файл файл1 файл1:=открыть на чтение ("Proc26.txt") цел A, x x:=0 нц пока не конец файла (файл1) ввод файл1, A вывод A," " Answer:=IsPower5(A) вывод Answer,нс если IsPower5(A) то x:=x+1 все кц вывод "Среди введенных чисел ", "(",x,")", " являются степенью 5" закрыть(файл1) кон алг лог IsPower5 (арг цел K) нач цел i i:=1 нц пока i<K i:=i*5 кц знач:=i=K кон |
Файл Proc26.txt
|
1 |
33 44 55 0 1 333 6665 883 36 84 2 4 65 -1 -5 0 25 -25 125 126 625 |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: