Эту задачу очень легко решить при логарифмов. Если при делении логарифма числа на логарифм пяти получится целое число, то искомое есть степень пятерки, а результат деления и есть показатель степени.
На примере: lg(125) / lg(5) = 3. Так как 5³ = 125 lg(812) / lg(5) ≈ 4.16 поэтому 812 не явл. степенью 5-ки.
print "Введите число" input A S = log(A) / log(5) if S = int(S) then print "Число ";А; "является степенью числа 5" print "Показатель степени "; S else print "Число ";А; "не является степенью числа 5" end if end
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var a:=ArrRandom(10,50,100); a.Println(', '); var s:=0; for var i:=0 to 9 do s+=a[i]; Writeln('s=',s) end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 var a:array[1..10] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 10 do begin a[i]:=Random(51)+50; Write(a[i],' '); s:=s+a[i] end; Writeln; Writeln('s=',s) end.
На примере: lg(125) / lg(5) = 3. Так как 5³ = 125
lg(812) / lg(5) ≈ 4.16 поэтому 812 не явл. степенью 5-ки.
print "Введите число"
input A
S = log(A) / log(5)
if S = int(S) then
print "Число ";А; "является степенью числа 5"
print "Показатель степени "; S
else
print "Число ";А; "не является степенью числа 5"
end if
end