Циклы в Vba.excel

[zerik]

Очень, очень прошу помочь с задачкой! Вопрос жизни и смерти буду очень благодарна за помощь!

Три приятеля были свидетелями нарушения правил дорожного движения. Номер автомобиля - четырехзначное число - никто не запомнил. Из их показаний следует, что номер делится на 2, на 7 и на 11, сумма цифр номера равна 30. Напишите программу для определения номера автомашины.

 

[Dock1100]

На каком языке?

 

[hosm]

Visual Basic for Excel Application. Знаешь такой? Тему из ВБ-раздела перенесла... мне влом решать)

 

[Dock1100]

Visual Basic for Excel Application. Знаешь такой? Тему из ВБ-раздела перенесла... мне влом решать)

Неа,
но номер такой один: 8778
код для делфи

procedure TForm6.Button1Click(Sender: TObject);
var i,j,k,n,f:longint;
begin
memo1.Clear;
memo1.Lines.Add('Возможные номера автомобилей');
for i := 0 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
for n := 0 to 9 do
begin
f:=i*1000+j*100+k*10+n;
if (f mod 2 = 0)and(f mod 7 = 0)and(f mod 11 = 0)and(i+j+k+n = 30) then
memo1.Lines.Add(inttostr(i)+inttostr(j)+inttostr(k)+inttostr(n));
end;

memo1.Lines.Add('конец подбора номеров');
end;

 

[zerik]

Dock1100, спасибо большое!!!