Developing.ru

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

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

Код: Выделить всё

function sum(x: integer): integer;

  while x>0 do 
  begin 
     inc(s, x mod 10); 
     x:=x div 10; 
  end;
  sum:=s;


for i:=N to M do
  if sum(i) = k+7
     writeln(i);

begin, end, описание переменных - сами напишете.

Developing.ru

Помогите с задачей на Паскале, пожалуйста.

Помогите с задачей на Паскале, пожалуйста.

Re: Помогите с задачей на Паскале, пожалуйста.