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

Proc6. Описать процедуру DigitCountSum($$K$$, $$C$$, $$S$$), находящую количество $$C$$ цифр целого положительного числа $$K$$, а также их сумму $$S$$ ($$K$$ — входной, $$C$$ и $$S$$ — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.

Решение:

program Proc6;

procedure DigitCountSum(K:Integer; var C,S:Integer);
var
 TempI:Integer;
begin
C:=0;
S:=0;

while (k<>0) do
  begin
    S:=S+(K mod 10);
    C:=C+1;
    K:=K div 10;
  end;
end;

var
  i,K,C,S:Integer;

begin
  for i:=1 to 5 do
   begin
    Write('K: ');
    Readln(K);
    DigitCountSum(K,C,S);
    Writeln(C,' ',S);
   end;
end.

program Proc6;

procedure DigitCountSum(K:Integer; var C,S:Integer);

var

TempI:Integer;

begin

C:=0;

S:=0;

while (k<>0) do

begin

S:=S+(K mod 10);

C:=C+1;

K:=K div 10;

end;

var

i,K,C,S:Integer;

begin

for i:=1 to 5 do

begin

Write('K: ');

Readln(K);

DigitCountSum(K,C,S);

Writeln(C,' ',S);

end;

end.

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

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

Вариант со строкой

[crayon-6746b15c16e13605672118 inline="true" ]
procedure DigitCountSum();//преобразованием в строку
  var
   k,c,s,i1:integer;
   ks:string;
  begin
    readln(k);
    s:=0;
    ks:=inttostr(k);
    c:=length(ks);
    for i1:=1 to c do s:=s+strtoint(ks[i1]);
    writeln(c);
    writeln(s);
  end;

var
 i:integer;
begin
  for i:=1 to 5 do DigitCountSum();  
end.

[crayon-6746b15c16e13605672118 inline="true" ]

procedure DigitCountSum();//преобразованием в строку

var

k,c,s,i1:integer;

ks:string;

begin

readln(k);

s:=0;

ks:=inttostr(k);

c:=length(ks);

for i1:=1 to c do s:=s+strtoint(ks[i1]);

writeln(c);

writeln(s);

end;

var

i:integer;

begin

for i:=1 to 5 do DigitCountSum();

end.

[/crayon]

Ответить

Anton

11.01.2016 в 08:38

Опять же должна быть процедура DigitCountSum(K, C, S), а не DigitCountSum().
и из за этого вариант со строкой выглядит не так привлекательно.

Ответить

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

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

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

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