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

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

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

Какую?

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

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

http://znanija.com/task/6811408

var  n, i, s: integer;begin  readln(n);  i := 100;  while (i <= 999) do  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.