Циклы в Vba.excel

Тема в разделе "Другие задачи", создана пользователем zerik, 23 апр 2010.

Статус темы:
Закрыта.
  1. zerik

    zerik Гость

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

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    На каком языке?
     
  3. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Visual Basic for Excel Application. Знаешь такой? Тему из ВБ-раздела перенесла... мне влом решать)
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Неа,
    но номер такой один: 8778
    код для делфи
    Код (Text):
    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;
     
  5. zerik

    zerik Гость

    Dock1100, спасибо большое!!! :rolleyes:
     
Загрузка...
Похожие Темы - Циклы Vba excel
  1. Maddy101d
    Ответов:
    3
    Просмотров:
    1.014
  2. Homka
    Ответов:
    12
    Просмотров:
    2.877
  3. Smile1995
    Ответов:
    2
    Просмотров:
    1.134
  4. Antonim
    Ответов:
    2
    Просмотров:
    1.472
  5. dEND
    Ответов:
    0
    Просмотров:
    67
Статус темы:
Закрыта.

Поделиться этой страницей