Решение задачи A квалификационного раунда Google Code Jam 2016


Условия задачи «Овца-счетовод»

program csheep;

uses
  SysUtils;

var
  T, N, i, kn: LongWord;
  j, k: Byte;
  s, d: string;
begin
  Readln(T);
  for i:=1 to T do
  begin
    Readln(N);
    if N = 0 then
    begin
      s:='INSOMNIA';
      d:=''
    end
    else
      d:='0123456789';
    k:=1;
    while Length(d) > 0 do
    begin
      s:=IntToStr(k * N);
      for j:=1 to Length(s) do
      begin
        d:=StringReplace(d, s[j], '', []);
      end;
      Inc(k);
    end;
    Writeln('Case #', i, ': ', s);
  end;
end.
Реклама
Рубрика: программирование | Метки: , | Оставить комментарий

Google Code Jam 2016. Задача A квалификационного раунда


Овца-счетовод

Овца Bleatrix Trotter придумала, как ей быстрее заснуть. Сначала надо выбрать число N. Затем назвать N, 2 × N, 3 × N и т.д. Она думает о каждой цифре называемого числа. Она запоминает, какие цифры (0, 1, 2, 3, 4, 5, 6, 7, 8, и 9) уже встречались хотя бы раз в любом из названных чисел. Она заснёт, когда «повидается» с каждой из десяти цифр хотя бы раз. Читать далее

Рубрика: перевод | Метки: | Оставить комментарий

Замена текста в надписях Word


Dim s As Shape
Dim OldText As String
For Each s In ActiveDocument.Shapes
  If s.Type = msoTextBox Then
    OldText = s.TextFrame.TextRange.Text
    s.TextFrame.TextRange.Text = Replace(OldText, "Текст", "Замена")
  End If
Next
Рубрика: программирование | Метки: , | Оставить комментарий

Особенность очистки содержимого объединённых ячеек Excel


Private Sub Worksheet_Change(ByVal Target As Range)
  'при нажатии клавиши BackSpace Target.Count = 1
  'при нажатии клавиши Delete Target.Count > 1
End Sub
Рубрика: программирование | Метки: , | Оставить комментарий

Заключаем строку VBA в кавычки


Чтобы в строку VBA записать символ кавычек, приходится использовать код символа кавычек Chr(34) или дублировать символ кавычек. Читать далее

Рубрика: программирование | Метки: | Оставить комментарий

Внимание, пассажиры: рейс 0703 также проходит под номером 451


Автор: Эрик Липперт.
Источник: Attention passengers: Flight 0703 is also known as Flight 451.

Я ненавижу восьмеричные числа – они порождают ошибки.  Я ненавижу ошибки, особенно тупые ошибки. Читать далее

Рубрика: перевод, scripting | Метки: | Оставить комментарий

Открываем в Excel текстовый файл с разделителем-табуляцией


'кодировка файла: Windows (ANSI)
Sub OpenTabFile(TabFile As String)
  Workbooks.OpenText Filename:=TabFile, Origin:=xlWindows, Tab:=True
End Sub
Рубрика: программирование | Метки: , | Оставить комментарий