Решение задачи 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.
Реклама
Запись опубликована в рубрике программирование с метками , . Добавьте в закладки постоянную ссылку.

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s