(паскль)найти сумму всех n-значных чисел кратных k(Задачка легкая, но дойти не может, помогите плиз)

[MsJane]

найти сумму всех n-значных чисел кратных k (1<=n<=4)
var k,i,s:integer;
begin
write('k=');
readln(k);
s:=0; i:=0;
for i:=1 to 9999 do
if (i mod k = 0) then s:=s+i;
writeln('S=,s);
readln;
end.
(это не правильно тут еще надо Н вводить но до меня не может дойти как это сделать)
Помогите пожалуйста, ну или посоветуйте)

[Lemo]

тойсть нужно сделать ввод для н, если введено 2, то в цикле перебираем от 10 до 99, если 3 , то 100...999 и тд!

[eoln]

for i:=trunc(exp((n-1)*ln(10))) to trunc(exp(n*ln(10))) - 1 do

[CodeExpert]

Если непосредственно по вашей проблеме, то вот мой пример работы, только здесь прикручен счетчик кратных:

program zna;
uses Crt;
var k:integer; //изначальное число
    maxpred:integer; //"потолок" значности
    n:integer; //значность
    i:integer; //счетчик
    sum:integer; //сумма кратных чисел
    kol:integer; //кол-во кратных чисел
begin
ClrScr; {очистка экрана}
Writeln('Введите пожалуйста k');
Readln(k);
{выполняем пока не удовлетворит услвовию что (1<=n<=4)}
repeat
Writeln('Введите значность чисел');
Readln(n);
until (n>=1) and (n<=4);
{вычисляем "потолок" значности, к примеру
если значность 2, то потолок будет 99}
maxpred:=round(exp(ln(10)*n))-1;
sum:=0;
kol:=0; 
for i:=1 to maxpred do
 begin
  if (k mod i = 0) then begin sum:=sum+i;kol:=kol+1;end;
  end;
Writeln('Кол-во ',n,' - значных чисел, кратных ',k,' = ',kol);
Writeln('Сумма всех ',n,' - значных чисел, кратных ',k,' = ',sum);
Readln;
end.

Если слегка подправить ваш код, то выглядело примерно так бы:

program kratnost;
var k,i,n,s,m:integer; 
begin
write('k=');
readln(k);
repeat
write('n=');
readln(n);
until (n>=1) and (n<=4);
m:=round(exp(ln(10)*n))-1;
//i не нужно было обнулять!
s:=0; 
for i:=1 to m do
 begin
  if (k mod i = 0) then s:=s+i;
  end;
writeln('S=',s);
readln;
end.

[eoln]

Сообщение от CodeExpert

m:=round(exp(ln(10)*n))-1;
s:=0;
for i:=1 to m do
[/CODE]

Позволю заметить, что и на начало цикла следует накладывать условие, а именно i должно стартовать не от 1, а от round(exp(ln(10)*(n-1)))

Сообщение от CodeExpert

if (k mod i = 0)

А вот с этим замечанием полностью не согласен