Pascal. Вывести на экран сумму цифр первых N четырехзначных чисел, начиная с числа K при заданном N и K

[Kamelok]

Здравствуйте написал программу для подсчёта сумму четырехзначного числа. А в задание требуется Вывести на экран сумму цифр первых N четырехзначных чисел, начиная с числа K при заданном N и K. Как это сделать?

Var 
 Number, i, j, z, l, S : Integer; 
BEGIN 
  Write( 'Введите четырехзначное число : ' ); ReadLn(Number); 
  Number:=Abs(Number); 
  Write( 'Цифры числа ' , Number , ' : ' ); 
  i := Number div 1000; Write(i:3); 
  j := Number div 100 mod 10; Write(j:3); 
  z := Number div 10 mod 10; Write(z:3); 
  l := Number mod 10; WriteLn(l:3); 
  S := i + j + z + l ; 
  WriteLn( 'Summa ' , S ); 
  ReadLn 
END.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Sciv]

Как это сделать?

Свою программу переписываете в функцию, затем в основной программе делаете цикл от K до N, в котором для каждого числа вызываете эту функцию и складываете все результаты в одну общую переменную Sum.

[Kamelok]

Я запутался?

var a,n,i,z,v,k,Number: integer;
begin
 randomize;
 write('n: ');
 readln(n);
 for i:=1 to n do
  begin
   a:=random(8999)+1000;
    write(a,' ');
  end;
a := Number div 1000; Write(a:3); 
for v:=1 to 2 do
if a=k then begin
writeln('введите значение элемента',' ',v,':');
readln(v);
s:=s+v;
end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[newerow1989]

var i,n,k,a,b,sum,s:integer;
begin
   Write('N = '); Readln(n);
   Write('K = '); Readln(k);
   Randomize;
   sum:=0;
   For i:=1 to n do
   begin
      a:=1000+Random(9000);
      Write(a);
      If i<k then
      begin
         Writeln;
         Continue;
      end;
      s:=0;
      While a>0 do
      begin
         b:=a mod 10;
         a:=a div 10;
         s:=s+b;
      end;
      Writeln('  s = ',s);
      sum:=sum+s;
   end;
   Writeln('      ------');
   Writeln('          ',sum);
   Readln;
end.