Составить программу в паскале с использованием циклических операторов: Среди всех...

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.

Comments

Нерациональная

---

не сможешь решить?

---

Даже не вижу, какой цикл вложить-то можно, один прекрасно вправляется

---

Могу добавить калькулятор число пи

---

нет,его точно не надо

---

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

---

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.

---

Без функции

---

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

---

Удачи Вам:)