Musze zrobic program ktory po w pisaniu zdania przeksztalca go w ten sposob ze najpierw wypisuje wszystkie samogloski a potem wszystkie spolgloski, np Dla zdania: to jest zdanie. pszeksztalca na: oeaie tjstzdn.
Program mi dziala tylko, ze zamiast przeksztalcic na: oeaie tjstzdn. pisze mi: oeaie t jst zdn . Jak mam sie pozbyc tych spacji pomiedzy spolgloskami???
program szyfr_jezyka;
uses crt;
var s:string;
i:integer;
czy:boolean;
begin
write('Napisz zdanie: ');
readln(s);
czy:=true;
for i:=1 to length(s) do
if UpCase(s[i]) in ['A','I','E','O','U','Y'] then
write(s[i]);
write(' ');
for i:=1 to length(s) do
begin
if UpCase(s[i]) in ['A','I','E','O','U','Y'] then
czy:=false
else write(s[i]);
end;
readkey;
end.
Z gory dzieki za pomoc.