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

[niancell]

Вывести все числа от N до M, сумма цифр которых равна (k+7), где k – номер варианта.

N и M вводится.
k - подставьте любое число.

[Кольша]

const
k=//something
;
//..
reanln(n,m);
for i:= n to m do
if //something 
then 
writeln(i);
//..

[niancell]

Сообщение от Кольша

const
k=//something
;
//..
reanln(n,m);
for i:= n to m do
if //something 
then 
writeln(i);
//..

По заданию как я понял нужно складывать цифры каждого числа от N до M.
Скажите, пожалуйста, как это сделать?
Из вашего решения понятно только то, что нужно делать все через цикл от n до m и если что-то тогда выводить i.
Меня как раз интересует это что-то.

Извините, конечно, что отнимаю время, но очень хочется все понять.

[Poma][a]

По заданию как я понял нужно складывать цифры каждого числа от N до M.

Совершенно верно..
Вы должны перебрать каждое число из диапазона [N, M].

for i := n to m do

Осталось разобраться с тем, как найти сумму цифр числа (пусть она будет = sum)
И если сумма цифр данного числа = k, тогда выводим это число..

if sum = k then WriteLn (i)

const 
   k = 10; 

var
  n, m, i, sum <наверное, будет что-то еще> : Integer
begin
    ReadLn (n, m);
  
    for i := n to m do begin
         sum := 0;
         <сщитаем сумму> 
         if sum = k then
              WriteLn (i)
    end
end.

[Кольша]

//конечный вариант
const 
   k = 10; 

var
  n, m, i, sum, s : Integer
begin
    ReadLn (n, m);
  
    for i := n to m do begin
         sum := 0;
         for s:=1 to i do
           sum:=sum+s;
         if (sum = k +7)then
              WriteLn (i);
    end;
end.

[Poma][a]

for s:=1 to i do
           sum:=sum+s;

Эм.. Что это?
Кстати, Виталий уже решил задачку
http://programmersforum.ru/showthrea...74#post1285874

[Кольша]

ААа..сумму всех цифер в числе.. а я сумму всех цифр от 1 до числа нашел..блин..не так понял.

[niancell]

Всем спасибо ббольшое =)
Все понял