Складіть блок-схему фрагмента алгоритму, у якому цикл з лічильником вкладено в повне розгалуження і який виконується, якщо результат перевірки умови розгалуження Ні. Поясніть виконання складеного фрагмента.

Эту задачу очень легко решить при логарифмов. Если при делении логарифма числа на логарифм пяти получится целое число, то искомое есть степень пятерки, а результат деления и есть показатель степени.

На примере: 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.

Тестовое решение:
64, 59, 67, 54, 90, 51, 94, 70, 65, 82
s=696

"Школьный" вариант:

// 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.

Тестовое решение:
82 88 94 65 73 94 86 56 91 60
s=789

И, чтобы не быть голословным, современный вариант:

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln('s=',ArrRandom(10,50,100).Println.Sum)
end.

Тестовое решение:
94 90 70 85 62 58 94 73 67 97
s=790