Дано число N(100<N<1000) и число K(0<K<10). Найти минимальное число, которое делится на N без остатка и в котором используются только числа K и 0.

Наверное, где - то так...

Код

function TwSmwls(Source: cardinal; K: byte): boolean; var   i: integer;   Str: string; begin   Result:= true;   Str:= IntToStr(Source);   for i:= 1 to Length(Str)do   begin     if (StrToInt(Str[i]) <> K)or(StrToInt(Str[i]) <> 0)then     begin       Result:= false;       Exit;     end;   end; end; function Olymp(N, K: Cardinal): Cardinal; var   i: integer; begin   i:= n;   while not TwSmwls(i, K)do     i:= i + n;   Result:= i; end;

Вот именно то. А почему она олимпиадная?

А где

Цитата(Fighter @ 19.12.2005, 00:06)

которое делится на N без остатка

Ребята, вы конечно извините, но это число НОЛЬ - для этого даже прогу писать не надо! К условиям задачи подходит один к одному: в свое время мне на олимпиаде подобная неточность в условии попалась и решение выглядело так:

Readln(N);
ReadLn(k);
Writeln(0);

После получасовых препираний с комиссией задачу мне засчитали. Больше ее не решил никто ибо на решение нужно было потратить значительно больше времени, чем длилась олимпиада. За такими вещами нужен глаз да глаз! На олимпиадах побеждают не самые умные, а самые внимательные!

Цитата(wesadex @ 27.12.2005, 13:28)

На олимпиадах побеждают не самые умные, а самые внимательные!

Правильно... Вот именно поэтому твой вариант не пройдет... Перечитай задание:

Цитата(Fighter @ 19.12.2005, 00:06)

Найти минимальное число, которое делится на N без остатка и в котором используются только числа K и 0.

Понимаешь, "И"... Не "ИЛИ"... В записи числа 0 не присутствует цифра К...

Тьфу блин!
Ну я и говорю - самые внимательные - видать я стал умнеть!!!