Задачка легкая, но дойти не может)

[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.
(это не правильно тут еще надо Н вводить но до меня не может дойти как это сделать)
Помогите пожалуйста, ну или посоветуйте)

[.Phoenix]

это не правильно тут еще надо Н вводить но до меня не может дойти как это сделать

Когда создавал(а) тему тебе не приходило в голову, авось зададут не хитрый вопрос "А для чего нужна эта переменная H?"

[CodeExpert]

Очевидно, что переменная H расшифровывается как High - верхний предел n-значности..

[velikijmerlin]

MsJanep
программка готова
220250283 - пиши)))