Programación General > Pascal

 hola necesito q me ayuden a pasarlo a C++

(1/1)

gabrielaaA:
hola necesito q me ayuden a pasarlo a c++


program DELBLANK;
uses wincrt;
const
 N=70;
type
 A=string[N];
var
 FRASE,FRASE1:A;
 CB,I,J:integer;
begin
 readln(FRASE);
 FRASE1:=FRASE;
 if (pos(' ',FRASE)<>0) then
 begin
  FRASE1:='';
  repeat
   I:=pos(' ',FRASE);
   if (I>1) then
    FRASE1:=FRASE1 + copy(FRASE,1,I);
   CB:=0;
   J:=I;
   while (FRASE[J]=' ') do
   begin
    J:=J+1;
    CB:=CB+1;
   end;
   delete(FRASE,1,J-1);
  until (pos(' ',FRASE)=0);
 end;
 FRASE1:=FRASE1 + copy(FRASE,1,I);
 writeln(FRASE1);
 writeln(pos(' ',FRASE));
end.

epayan:
por que no entras a un foro de c?

Navegación

[0] Índice de Mensajes