Множества

Комментарии

множества

Ввести строку символов. Напечатать:
а) первые вхождения букв латинского алфавита, сохраняя порядок их появления;
б) все буквы, входящие в текст не менее двух раз;
в) все буквы, входящие в текст по одному разу.

помогите, пожалуйста !

поменять местами цифры

помогите пожалуйста!!!
Поменять местами нечётные цифры в пятизначном числе.
Пример: 12345 -> 52143

поменять местами цифры

Не знаю может требовалось раскрыть этим примером какую либо иную тему, но судя по этому примеру нуждо было переставить нечетное на место последующего нечетного(последнее нечетное уходит на место первого нечетного). Вобщем вот =/

type
  massive = array [1..5]of integer;
 
var
  mas, mas2: massive;
  s: string; i, j: integer;
 
procedure perestanovka;
var
  mas1: massive;k, i: integer;
begin
  k := 1;
  for i := 1 to length(s) do
    if mas[i] mod 2 <> 0 then
    begin
      mas1[k] := mas[i];
      inc(k);
    end;
  k := k - 1;
  for i := 1 to k do
    if i = 1 then mas2[i] := mas1[k] else mas2[i] := mas1[i - 1];
end;
 
begin
  j := 1;
  readln(s);
  for i := 1 to length(s) do
    mas[i] := StrToInt(s[i]);
 
  perestanovka;
 
  for i := 1 to length(s) do 
  begin
    if mas[i] mod 2 <> 0 then
    begin
      mas[i] := mas2[j];inc(j);
    end;
    write(mas[i]);
  end;
end.

Непонятен принцип замены. Это

Непонятен принцип замены. Это какая-то странная задача. Кто вам дает такие?