C/C++ - Ребят нужен хелп с переводом программы с Pascal на C(Си)

[Anastasiya9kmmr]

в общем у меня есть паскаль программа которую нужно перевести в С(Си). Кто может это сделать сделайте пожалуйста))))))

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



var

r, s: string;

x: array [1..100] of string;

my_set: set of char;

ok: boolean;

k, i, start: integer;



begin

//readln(s);

s := 'В исходной строке А определить и вывести слова, в которых нет повторяющихся букв.';

s := s + ' ';

start := i;

my_set := [];

ok := true;

k := 0;

for i := 1 to length(s) do

begin

if s in [' ', '.', ','] then

begin

if ok then

begin

r := copy(s, start, i - start);

if length(r) = 5 then

begin

inc(k);

x[k] := r;

writeln(x[k]);

end;

end;

my_set := [];

ok := true;

start := i + 1;

end

else

begin

ok := ok and (not (s in my_set));

include(my_set, s);

end;

end;

end.

[Iska]

Anastasiya9kmmr, здесь не сайт фрилансеров. Попробуйте сами, а что не получится — подскажут.