Одна задачка по Pascal

[LAM 757]

Уважаемые програмисты помогите пожалуйсто! только если не сложно. плиз напишите и начало программы. а то я вообще слабоват в Pascal...


Дано целое число K. Найти знакочередующуюся сумму цифр
числа К. (Пусть запись К в десятичной системе
есть a[n]...a[2] a[1] a[0];найти a[0]+a[1]+a[2]+...+a[n]).

[Chudo4258]

найти a[0]+a[1]+a[2]+...+a[n]

program Project2;
var K,S:integer;
begin
write('K='); Readln(K);
S:=0;
while K<>0 do
 begin
  S:=S+(K mod 10);
  write('+',K mod 10);
  k:=K div 10;
 end;
write('=',S);
readln
end.

Найти знакочередующуюся сумму цифр: a[0]-a[1]+a[2]-...+a[n]

program Project2;
var K,S,i:integer;
begin
write('K='); Readln(K);
S:=0;
i:=0;
while K<>0 do
 begin
  if (i mod 2=0) then begin S:=S+(K mod 10); write('+',K mod 10); end
                 else begin S:=S-(K mod 10); write('-',K mod 10); end;
  inc(i);
  k:=K div 10;
 end;
write('=',S);
readln
end.

[LAM 757]

Спасибо за помощь!! но есть ещё одно "но" ! вторая прога где надо Найти знакочередующуюся сумму цифр: a[0]-a[1]+a[2]-...+a[n],не запускается выдаёт ошибку "85 ”;” expected (Нужно указать”;”)." только вот я уже 10 раз проверил и не нашёл того места где пропушена ";"!! посмотрите пожалуйсто может прога не так написана!!

[Stilet]

LAM 757

А у меня ничего не выдает. Все работает.

[LAM 757]

блин,значит я такой кривой)) попробую переписать заного!!

[kiniovd]

program Project2;
var K,S,i:integer;
begin
write('K='); Readln(K);
S:=0;
i:=0;
while K<>0 do
 begin
  if (i mod 2=0) then begin S:=S+(K mod 10); write('+',K mod 10); end
                 else begin S:=S-(K mod 10); write('-',K mod 10); end;
  inc(i);
  k:=K div 10;
 end;
write('=',S);
readln
end.

При всем уважении к труду автора кода, но данный код не совсем верен. Тут оговорка должна быть: он складывает знакочередующуюся сумму с конца числа, а это не каждый препод "понимает", так как преподу надо чтобы складываться начинало с начала числа...

[kiniovd]

program z86;
uses crt;
Var i, n, n1,a, s, k, znak :integer;
Ind:boolean;
temp:string;
begin
clrscr;
Ind:=true;
while Ind do
      begin
      writeln('BBeDuTe 4uclo n ');
      readln(n); n1:=n;
      k:=0; {количество цифр}
      while n1 <> 0 do
            begin
            k:=k+1;
            n1 := n1 div 10;
            end;
if k mod 2 = 0 then znak:=-1 else znak:=1 ;
s:=0;
while n <> 0 do
            begin
            a:=n mod 10;
            s:=s+a*znak;
            znak:=znak*(-1);
            n := n div 10;
            end;
  writeln ( 'CyMMa = ', s);
        writeln('BBecTu Dpyroe 4uclo? (y/n)');         readln(temp);
        if (temp='N') or (temp='n') then Ind:=false;   writeln;
        end;
end.

адекватно работающий код - сложение с первой цифры