Question

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

Answer 1

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.

Answer 2

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

Answer 3

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.

Answer 4

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

Answer 5

Удачи Вам:)