Програма для Delphi в консольным режиме

[dima992]

Задано символьный массив,. Разработать программу, которая удаляет из этого массива все повторные вхождения цифр и знаков арифметических операций. Печатает преобразован массив по 35 символов в строке. Заране БЛАГАДАРЮ!!!

[Lokos]

можно пример массива.

[Serge_Bliznykov]

dima992, раздел Фриланса - тут.

[dima992]

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

можно пример массива.

{Обробник кнопки Обчислити}
procedure TForm1.Button1Click(Sender: TObject);
Const   c=[0..9];
Var	n, i, k: integer;
        	s1, s2, s3: set of  0..9;
begin
{Введення початкових даних}
	n:=StrToInt(Edit1.Text);
       s1:=[];	{Множина цифр, які є в числі}
       s2:=[]; 	{Множина цифр, яких немає в числі}
       s3:=[];	{Множина цифр, які є в числі і повторюються}
        i:=n;
       while i<>0 do
        begin
         k:=i mod 10;
           if k in s1 then s3:=s3+[k] else s1:=s1+[k];
          i:=i div 10;
        end;
        s2:=c-s1;
{Виведення результату}
        Edit2.Text:=''; Edit3.Text:='';  Edit4.Text:='';
{ Цифри, які є в числі }
  for i:=0 to 9 do
   if i in s1 then Edit2.Text:=Edit2.Text+IntToStr(i)+' ';
{ Цифр, яких немає в числі }
  for i:=0 to 9 do
   if i in s2 then Edit3.Text:=Edit3.Text+IntToStr(i)+' ';
{Цифри, що повторюються}
  for i:=0 to 9 do
   if i in s3 then Edit4.Text:=Edit4.Text+IntToStr(i)+' ';
   end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.