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

[StudentTNGU]

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

[}0pa]

Вот самый правильный вариант:

Код

uses crt;
var i:integer;

function GetCount_SumDigit(n:integer):boolean;
var c,k,s:integer;

begin
GetCount_SumDigit:=false;
s:=0;k:=0;
while n<>0 do
begin
  c:=n mod 10;
  k:=k+1;
  s:=s+c;
  n:=n div 10;
end;
if  (s mod 7=0) then GetCount_SumDigit:=true;
end;

begin
for i:=100 to 999 do
if (GetCount_SumDigit(i)=true)and(i mod 7=0) then writeln(i)
end.