Описать функцию IsPower5(K) логического типа, возвращающую True, если целый параметр K (> 0) является степенью числа 5, и False в противном случае. С ее помощью найти количество степеней числа 5 в наборе из 10 целых положительных чисел — Pascal(Паскаль)

program Func5;

uses crt;

var
  K: longint;
  i: integer;

function IsPover(K: longint): boolean;
var
  a: longint;
begin
  a := 1;
  repeat
    a := a * 5;
  until a >= K;
  if a = K then
    IsPover := true
  else
    IsPover := false;
end;

begin
  clrscr;
  write('K=');
  readln(K);
  write(IsPover(K));
  readln;

end.

Leave a Comment

86 − 82 =