Решаем задачи Абрамян на Паскале. Proc 29

Proc29. Описать функцию DigitCount($$K$$) целого типа, находящую количество цифр целого положительного числа $$K$$. Используя эту функцию, найти количество цифр для каждого из пяти данных целых положительных чисел.

Решение:

program Proc29;

Function DigitCount(K:Integer):Integer;
var S :String;
begin
  Str(K,S)  ;
  DigitCount:=Length(S);
end;

var
  i,N:Integer;

begin
 for i:=1 to 5 do
  begin
   Write('N :');
   Readln(N);

   Writeln(DigitCount(N));
  end;
end.

program Proc29;

Function DigitCount(K:Integer):Integer;

var S :String;

begin

Str(K,S) ;

DigitCount:=Length(S);

end;

var

i,N:Integer;

begin

for i:=1 to 5 do

begin

Write('N :');

Readln(N);

Writeln(DigitCount(N));

end;

end.

Решение от olegst1975:

program Proc29;
 
function DigitCount(k:integer):integer;
  begin
   result:=0;
   repeat
     k:=k div 10;
     inc(result);
   until k=0
  end;
 
var
  i,N:Integer;
 
begin
 for i:=1 to 5 do
  begin
   Write('N :');
   Readln(N);
 
   Writeln(DigitCount(N));
  end;
end.

program Proc29;

function DigitCount(k:integer):integer;

begin

result:=0;

repeat

k:=k div 10;

inc(result);

until k=0

end;

var

i,N:Integer;

begin

for i:=1 to 5 do

begin

Write('N :');

Readln(N);

Writeln(DigitCount(N));

end;

end.

Решения от olegst1975:

program Proc29;

function DigitCount(k:integer):integer;
  begin
   result:=trunc(ln(k)/ln(10))+1;
  end;
 
var
  i,N:Integer;
 
begin
 for i:=1 to 5 do
  begin
   Write('N :');
   Readln(N);
 
   Writeln(DigitCount(N));
  end;
end.

program Proc29;

function DigitCount(k:integer):integer;

begin

result:=trunc(ln(k)/ln(10))+1;

end;

var

i,N:Integer;

begin

for i:=1 to 5 do

begin

Write('N :');

Readln(N);

Writeln(DigitCount(N));

end;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 29

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ