Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому...

Question

Определить количество
трехзначных натуральных чисел, сумма
цифр которых равна целому числу n

Решить через WHILE и REAPEAT

Answer 1

var
  n, i, s: integer;
begin
  readln(n);
  i := 100;
  while (i <= 999) do<br>  begin
    if (i mod 10 + i div 10 mod 10 + i div 100 = n) then
      inc(s);
    i := i + 1;
  end;
  writeln(s);
  
  s := 0;
  i := 100;
  repeat
    if (i mod 10 + i div 10 mod 10 + i div 100 = n) then
      inc(s);
    i := i + 1;
  until (i = 999);
  writeln(s);
end.

Comments

Что такое ins(s) ?

---

inc, увеличивает значение целочисленной переменной на 1, это как s := s + 1;

---

А можешь еще одну задачу решить, только через FOR и While ?

---

Какую?

---

там нужно найти значение выражения, но картинки не предаются через комментарии

---

Создай ещё задание или ссылку в личку на картинки кинь, а в идеале - просто напиши)

---

http://znanija.com/task/6811408