Из pascal в с++

[Saruman!]

program GRAF;
   uses crt;
   const k=100;
   var a:array[1..k,1..k] of boolean;
         m,n:integer;
         Inw:array[1..k] of boolean;

   procedure READD;
   var i,j,x,y:integer;
   begin
         for i:=1 to k do
         for j:=1 to k do
              a[i,j]:=false;
   write('kol-vo vershin='); readln(n);
   write('kol-vo reber='); readln(m);
         for i:=1 to m do
         begin
             write('nachalo rebra: '); readln(x);
             write('konec rebra: '); readln(y);
             a[x,y]:=true;
             a[y,x]:=true;
         end;
   end;

   procedure SOLVE;
   var i,j:integer; o:boolean;
   begin
         for i:=1 to k do
            Inw[i]:=true;
         for i:=1 to n do
         begin
               o:=true;
               for j:=1 to n do
               if (a[i,j]) and (not(Inw[j])) then o:=false;
               if o then Inw[i]:=false;
         end;
   end;

   procedure WRITED;
   var i:integer;
   begin
          write('Minim. pokrivajy. podmnoghestvo: ');
          for i:=1 to n do
          if Inw[i] then write(i,' ');
   readln;
   end;

   begin
     clrscr;
     READD;
     SOLVE;
     WRITED;
   end.

[Alex11223]

Тут не бесплатное бюро переводов.

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.