из цисел выбрат павторение Опции

[maksimla]

нада из числа выбрать все повторение например число 16771 и написать на экране 6 повторы 77 и 11 ненужны
9966 написать на экране 0
ришить без массивов
мне помогите и объясните но решение недовать пака я не придумают или срок некончится в воскрисение паследний день мне надо будет здовать
вот что я зделал

program m;
var a:longint;
function cislo(n:longint):longint;
begin
while n>0  do
begin
 cislo:= n mod 10;{число разделяю на цифры}
 n:=n div 10;
 writeln(cislo);
 end;
 end;
 begin
 writeln('vvedite');
 readln(a);
 cislo(a);
 readln;
 end.

асталась мне эти цифры сравнить все со веми и записат ниповторяющийся цифры что подскажете

Сообщение отредактировано: Lapp - 24.01.2008 17:23

[klem4]

вот что вышло навcкидку:

uses crt;

var
  dig_set: set of Byte = [];

procedure GetDigits(const n: Integer);
var
  temp: Integer;
  digit: Byte;
begin
  temp := n;

  while temp > 0 do begin
    digit := temp mod 10;

    if not (digit in dig_set) then
      include(dig_set, digit)
    else
      exclude(dig_set, digit);

    temp := temp div 10;
  end;
end;

procedure GetSolve(n: Integer);
var
  temp: Byte;
begin
  if n > 0 then begin
    temp := n mod 10;
    if n div 10 > 0 then GetSolve(n div 10);
  end;

  if temp in dig_set then
    write(temp)
end;

var
  n: Integer;
begin
  clrscr;

  n := 19601;


  GetDigits(n);

  if dig_set = [] then
    write('0')
  else
    GetSolve(n);

  readln;
end.

[maksimla]

ничево непонел что ты тут написал
я исче графику ниизучаю

[klem4]

что я тебе могу сказать ... печально

[maksimla]

запустил на free pascal и все мне написали ашибка и ашибка и все а ты что хател сказат в этой проге

[volvo]

апустил на free pascal и все мне написали ашибка и ашибка и все

Хочешь, я тебе открою тайну? Программа-то компилируется без ошибок.. На Free Pascal-е, кстати, заметь. И отрабатывает тоже без ошибок. Так что учи матчасть...

[мисс_граффити]

maksimla, так и написал - "ашибка и ашибка"?
просто мне компиляторы обычно пишут error или warning, а потом еще уточняют, что не так....

[maksimla]

я даже нипанимаю как програмка каторою дали как ана атносится к маей задачи

[klem4]

я даже нипанимаю как програмка каторою дали как ана атносится к маей задачи

Ты прикалываешься чтоли ? Эта программка решает твою задачу.

Кстати, когда сообщение пишешь, тебе в окошке редактирования красным подсвечивают слова, в которых ты сделал гамматические ошибки. Я это читать больше не буду.