Помогите с задачей, найти 3-хзначные числа кратные 7 и...... Опции

[StudentTNGU]

Помогите решить задачку, плиз. Сижу парюсь с ней уже весь день... Перечитал лекции, книжки по паскалю - понять не могу как решить. Вот задачка:
Найти все трехзначные числа кратные 7 и сумма цифр которых тоже кратна 7.
Плж помогите...

[klem4]

Ну вот самый простой вариант:

uses crt;
var
  i, j, k, l: Integer;

begin
  clrscr;
  for i := 1 to 9 do
   for j := 0 to 9 do
    for k := 0 to 9 do
     for l := 0 to 9 do
      if (i + j + k + l = 7) and ((i * 1000 + j * 100 + k * 10 + l) mod 7 = 0) then
       writeln(i, j, k, l);
  readln; 
end.

Да и циклы конечно поменьше можно сделать ...

 for i := 1 to 7 do
   for j := 0 to 6 do
    for k := 0 to 6 do
     for l := 0 to 6 do