олимпиада

[альбертоо]

дано четырехзначное целое положительНое число. после удаления первой цифры это число уменьшилось в N раз. вывести в порядке убывания все такие числа. формаи входных данных содержит число N. выходной файл содержит в отдельной строке такие числа. помогите плиз..

[Leshii]

Тоесть чисел надо вводить много или же одно число и в порядке убывания?
если много, то массивы использовать можно? ( или там строго без отсортировать числа?).

[альбертоо]

одно число)

[veniside]

решение для всех мыслимых N:

http://ideone.com/hvyAH

[Leshii]

Покатит?

Program chislo;
Uses crt;
var
  s:string;
  number,cod: integer;
  n, i: byte;
  c: char;
  begin
clrscr;
Write('Vvedite 4islo: ');
readln(s);
Delete(s,1,1);
n:=length(s) div 2;
for i:=1 to n do begin
    c:=s[i];
    s[i]:= s[length(s)-i+1];
    s[length(s)-i+1]:=c;
end;
writeln(s);
readln;
end.

[TinMan]

Вот так можно:

  for i:=1 to 9 do
    if 1000*i mod (n-1)=0 then writeln(i,1000*i div (n-1));

Смысл в том, что если i - это первая цифра, то можно решить уравнение для числа, выражаемого остальными тремя, причем в целых числах. Перебираем все значения i в цикле от 1 до 9. Если уравнение разрешимо - решаем и выводим все.

P.S.
упс, я далеко не первый.. ))

P.P.S.
Не, ребят, это несерьезно - перебирать в такой задаче все произведения - это перебор с перебором )).

[Leshii]

P.S.
упс, я далеко не первый.. ))

Ну чего, дело не в том же, а по сути я понял как улучшить свой код .

Ой, а таки ошибся.

[veniside]

> это перебор с перебором

согласен ) объединил код от TinMan со своим, и добавли проверку на 4-х значность

http://ideone.com/hrXiV

[TinMan]

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

и добавли проверку на 4-х значность

Зачем? если первая цифра ненулевая (цикл от 1 до 9), то она не нужна ).

[veniside]

> Зачем?

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