Задача в Паскале

[mariicka]

Задача в Паскале

Помогите решить задачу.Вот что у меня получилось, но это не правильно.

program prim1;
var m, n: integer;
k: integer;
begin
writeln('Введите N=');
readln;
m:=n;k:=0;
while m <>0 do
begin
k:=k+1; m:= m div 10;
end;
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.

 

[mariicka]

под буквой г

 

[MagentaTiger]

Только пункт Г нужен или что ?

 

[mariicka]

да. только г

 

[Vladimir_S]

Помогите решить задачу.

Да пожалуйста - делов-то куча...

Var
 n,Sign,Sum2:Integer;
 Num,Sum1,First,i:Byte;

Begin
 Write('n = ');
 Readln(n);
 Num:=Trunc(Ln(n)/Ln(10))+1;
 if (Num mod 2)=1 then Sign:=1 else Sign:=-1;
 Sum1:=0;
 Sum2:=0;
 for i:=1 to Num do
  begin
   First:=(n mod 10);
   Sum1:=Sum1+First;
   Sum2:=Sum2+Sign*First;
   Sign:=-Sign;
   n:=n div 10;
  end;
 Writeln('Number of digits = ',Num);
 Writeln('Sum of digits = ',Sum1);
 Writeln('First digit = ',First);
 Writeln('Alternating sum of digits = ',Sum2);
End.

 

[Евгений]

У меня другой вариант:

uses SysUtils;
var n,i,sum:integer;
s:string;
begin
Write('Chislo = ');
Readln;
s:=IntToStr;
sum:=0;
for i:=1 to Length(s) do
if (i mod 2)<>0 then
sum:=sum+(Ord(s)-Ord('0'))
else
sum:=sum-(Ord(s)-Ord('0'));
Writeln('Summa = ',sum);
Readln;
end.

 

[mariicka]

Евгений, спасибо за решение, поясните пожалуйста эту строку.
sum:=sum+(Ord(s)-Ord('0'))

 

[Евгений]

У Владимира более математически.


sum:=sum+(Ord(s)-Ord('0')) - берём код символа, вычитаем из него код ноля и прибавляем (или вычитаем ) к сумме.