Описать функцию, возвращающую True, если параметр является степенью числа 5 - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Описать функцию, возвращающую True, если параметр является степенью числа 5 - Turbo Pascal»

textual
function IsPower5(k: longint): boolean;
var
  p: longint;
begin
  p := 1;
  while p < k do
    p := p * 5;
  IsPower5 := p = k;
end;
 
var
  i, x: integer;
 
begin
  for i := 1 to 10 do
  begin
    Readln(x);
    Writeln(IsPower5(x));
  end;
  Readln
end.

13   голосов, оценка 3.615 из 5


СОХРАНИТЬ ССЫЛКУ