Question

Program w Turbo Pascalu:

Wprowadź z klawiatury tekst zawierający spację a nastepnie wypisz miejsce wystepowania pierwszej spacji oraz tekst bez spacji

Answer 1

program zadanie;
uses crt;
var tekst:string;
i,j:integer;

begin
i:=0;
j:=0;
clrscr;
writeln('wprowadz tekst');
readln(tekst);
repeat
inc(i);
until (tekst[i]=' ') or (i>30000); {zabezpieczenie przed nieskonczona petla}
repeat
inc(j);
if tekst[j]=' ' then delete(tekst,j,1);
until (tekst[j]='') or (j>30000); {zabezpieczenie przed nieskonczona petla}
writeln('miejsce spacji to ',i);
writeln('tekst bez spacji linia nizej');
writeln(tekst);
readln;
end.