Составить программу в паскале с использованием циклических операторов:
Среди всех чисел,меньших к ( к<=999) указать те, сумма цифр которых равна даномучислу n

спасибо и на этом)

var n, i, k, a, b: integer;begin readln(n, k); for i := 1 to k do begin b := 0; a := i; repeat b := b + a mod 10; a := a div 10; until (a = 0); if (b = n) then writeln(i); end;end.

Без функции

Может, поможет...

Удачи Вам:)

function sum(i, n: integer): boolean;var  a, b: integer;begin  a := i;  repeat    b := b + a mod 10;    a := a div 10;  until (a = 0);  sum := (b = n);end;var  n, i, k: integer;begin  readln(n, k);  for i := 1 to k do    if sum(i, n) then      writeln(i);end.