олимпиада

[matr_]

var i,n,k:integer;
f,f2:text;
begin
assign(f,'in.txt');
reset(f);
assign(f2,'out.txt');
rewrite(f2);
read(f,n);
for i:=1000 to 9999 do begin
k:=i div 1000;
if (i-(k*1000))=i/n then
write(f2,i,' ');
end;
close(f);
close(f2);
end.

[альбертоо]

хмм. не хочу вас расстраивать ребят.. но ни один код не правильный(.. сам я не знаю в чем ошибка но проверяющие на олимпиаде не приняли((

[veniside]

> не хочу вас расстраивать ребят

о нет! наш код не приняли! всё, три дня траур, потом в запой

[matr_]

если есть задача...есть и тесты!
где они?
как можно так решать олимпиадные задания не имея тестов?

[TinMan]

Сообщение от veniside

без неё код выдаёт кучу 5-ти и 3-х значных чисел.

А.. ну да!.. [бьет себя по башке] Блин, уже не первый раз подобным образом пролетаю.. veniside, спасибо, +1 )) тутошняя параноидальная система защиты от накруток не даст поставить этот плюс, так что прими на словах, плз. Все же только при полном написании можно выловить все подводные камни..

Альберто, попробуй вот это.

var
  i,n,k: integer;

begin
  readln(n);
  for i:=1 to 9 do begin
    k:= 1000*i div (n-1);
    if (k<=999) and (1000*i mod (n-1)=0) then writeln(i*1000+k)
  end
end.

Но все же имей в виду: тесты - это во многих случаях есть часть условия. А условие нужно передавать абсолютно точно, буква в букву. И даже если нет - согласись, это нечестно: тебе на олимпиаде дали тесты, а ты нам фигушки?