Циклы в Vba.excel

  • Автор темы zerik
  • Дата начала
Статус
Закрыто для дальнейших ответов.
Z

zerik

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

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

hosm

* so what *
18.05.2009
2 442
6
#3
Visual Basic for Excel Application. Знаешь такой? Тему из ВБ-раздела перенесла... мне влом решать)
 
09.11.2009
665
1
#4
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;
 
Статус
Закрыто для дальнейших ответов.