Программа на Паскаль. Множества

[demone415]

Программа на Паскаль. Множества

Дана запись простого арифметического выражения над вещественными числами. Знаки операций, используемых в выражениях: -, +, *, /. Напечатать по одному разу все четные цифры, используемые в записи каждого числа чисел в порядке их появления.


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

 

[demone415]

Вот, я тут набросал:

program LR3_N;
const
A=['2','4','6','8'];
B=['1','2','3','4','5','6','7','8','9','0'];
var f:text;
v:char;
begin
assign(f,'text.txt'); reset(f);
{for i:=1 to length(f) do}
REPEAT
repeat
read(f,v);
until v in B;
If v in A then
write(v:4);
UNTIL EOF(f);
close(f);
end.

Но этот вариант выводит все четные подряд. А нужно без повторений.

 

[Vladimir_S]

Но этот вариант выводит все четные подряд. А нужно без повторений.

Пожалуйста:

const
 A=['2','4','6','8'];
 B=['1','2','3','4','5','6','7','8','9','0'];
var
 f:text;
 v:char;
 C:Set of Char;
begin
 C:=[];
 assign(f,'text.txt');
 reset(f);
 REPEAT
  repeat
   read(f,v);
  until v in B;
  If (v in A) and Not(v in C) then
   begin
    write(v:4);
    C:=C+[v];
   end;
 UNTIL EOF(f);
 close(f);
 Readln
end.