Комментарии: Решаем задачи Абрамян на Паскале. Proc 26

Автор: Bronislav

Bronislav — Tue, 06 Mar 2018 22:51:24 +0000

//pascalABC.net
function isPower5(k:integer):boolean;
begin
  while (k mod 5 = 0) and (k<>0) do//(k<>0) защита от зацикливания;
    k:=k div 5;
  result:=(k=1);
end;

begin
  var a:=ReadArrInteger('введите набор из 10-и целых положительных чисел:',10);
  writeln('степеней пятерки в наборе: ',a.Where(t->isPower5(t)).Count);
  readln;//readln;
end.

//pascalABC.net

function isPower5(k:integer):boolean;

begin

while (k mod 5 = 0) and (k<>0) do//(k<>0) защита от зацикливания;

k:=k div 5;

result:=(k=1);

end;

begin

var a:=ReadArrInteger('введите набор из 10-и целых положительных чисел:',10);

writeln('степеней пятерки в наборе: ',a.Where(t->isPower5(t)).Count);

readln;//readln;

end.

Автор: Bronislav

Bronislav — Tue, 06 Mar 2018 22:40:03 +0000

В ответ на Newton. Newton единицу потерял (K=1). Строка пятая Test:=1.

Автор: Anton

Anton — Fri, 11 Nov 2016 02:36:08 +0000

В ответ на Newton. Добавил в шапку.. принцип такой же как у olegst1975, но элегантней. :)

Автор: Newton

Newton — Thu, 10 Nov 2016 20:04:50 +0000

Еще вариант:

Function IsPower5 (K : integer) : boolean;
var
   Test : integer;
begin
   Test := 5;
   while Test < K do
      Test := Test * 5;
   IsPower5 := (Test = K);      
end;

Function IsPower5 (K : integer) : boolean;

var

Test : integer;

begin

Test := 5;

while Test < K do

Test := Test * 5;

IsPower5 := (Test = K);

end;

Автор: Anton

Anton — Mon, 11 Jan 2016 05:52:53 +0000

Поправил
Было:

Function IsPower5(K:Integer):Boolean;
begin
  if K>4 then IsPower5:=True
  else IsPower5:=False;
 
  While (K>5) do
   begin
    if ((k mod 5)<>0) and (k<>1) then
    begin
      K:=0;
      IsPower5:=False;
    end;
    K:=k div 5;
   end;
end;

Function IsPower5(K:Integer):Boolean;

begin

if K>4 then IsPower5:=True

else IsPower5:=False;

While (K>5) do

begin

if ((k mod 5)<>0) and (k<>1) then

begin

K:=0;

IsPower5:=False;

end;

K:=k div 5;

end;

Стало:

Function IsPower5(K:Integer):Boolean;
begin
 While (K>=5) do
  begin
   if ((k mod 5)<>0) and (k<>1) then
    begin
     K:=0;
     IsPower5:=False;
    end;
   K:=k div 5;
  end;
 if K=1 then IsPower5:=True
 else IsPower5:=False;
end;

Function IsPower5(K:Integer):Boolean;

begin

While (K>=5) do

begin

if ((k mod 5)<>0) and (k<>1) then

begin

K:=0;

IsPower5:=False;

end;

K:=k div 5;

end;

if K=1 then IsPower5:=True

else IsPower5:=False;

end;

Автор: Anton

Anton — Mon, 11 Jan 2016 05:27:58 +0000

В ответ на olegst1975. Добавил в шапку.

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 22:49:48 +0000

[crayon-69d5160e57185277153202 inline="true" ]
function IsPower5(k:integer):boolean;
var
n1:integer;
  begin   
   n1:=1;
   result:=false;
   while n1<=k do//перебор и сравнение степеней 5 не выше числа К
     begin
      if n1=k then result:=true;
      n1:=n1*5;
     end;   
  end;

var
 i,k,n:integer;  
begin
  n:=0;
  for i:=1 to 10 do
    begin
     read(k);
     if IsPower5(k) then inc(n);
    end;
  write(n);
end.

[crayon-69d5160e57185277153202 inline="true" ]

function IsPower5(k:integer):boolean;

var

n1:integer;

begin

n1:=1;

result:=false;

while n1<=k do//перебор и сравнение степеней 5 не выше числа К

begin

if n1=k then result:=true;

n1:=n1*5;

end;

var

i,k,n:integer;

begin

n:=0;

for i:=1 to 10 do

begin

read(k);

if IsPower5(k) then inc(n);

end;

write(n);

end.

[/crayon]

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 22:46:25 +0000

нужно доработать, сейчас на 10,20 реагирует true(как на кратность 5), учесть 50=1(первым сравнением отсекается);