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
использоватьФайлы
алгProc26
нач
лог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
33445501333666588336842465-1-5025-25125126625
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: