Эту задачу очень легко решить при логарифмов. Если при делении логарифма числа на логарифм пяти получится целое число, то искомое есть степень пятерки, а результат деления и есть показатель степени.
На примере: 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
Pascal:
var a,b,i:integer;
begin
write('Введите а: '); readln(a);
if a < 1 then write('Число не может быть меньше единицы')
else begin
for i:=1 to a do begin
b:=b+i;
end;
write('b = ', b);
end;
end.