Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MasterDeeJay: MSI H110M PRO és i3-8350K (coffeetime mod)
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál...
- gban: Ingyen kellene, de tegnapra
- Brogyi: CTEK akkumulátor töltő és másolatai
- Magga: PLEX: multimédia az egész lakásban
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
-
LOGOUT
Új hozzászólás Aktív témák
-
janos1988
addikt
Próbáltam magamtól egy mondatot feldarabolni de nem megy, csak vakarom a fejem.
Ha így csinálom, akkor lemarad a "lenni." rész:
program felbontas;
var
s1,s2:string;
i:integer;
begin
s1:='Ez egy szep hosszu proba mondat akarna lenni.';
s2:='';
for i:=1 to length(s1) do
begin
if s1[i] <> #32 then s2:=s2+s1[i]
else
begin
writeln(s2);
s2:='';
end;
end;
end.
Ha így próbálom, akkor pedig a ".":
program felbontas;
var
s1,s2:string;
i:integer;
begin
s1:='Ez egy szep hosszu proba mondat akarna lenni.';
s2:='';
for i:=1 to length(s1) do
begin
if (s1[i]<>#32) and (i<>length(s1))
then s2:=s2+s1[i]
else
begin
writeln(s2);
s2:='';
end;
end;
end.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Bomba Ár! Fujitsu LifeBook E780 - i5 I 4GB I 500GB I DVDRW I 15,6" HD I Cam I W10 I Garancia!
- Bomba ár! Dell Latitude 7480 - i5-6GEN I 8GB I 256GB SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- BESZÁMÍTÁS! ASUS ROG Crosshair VIII Extreme alaplap garanciával hibátlan működéssel
- Bomba ár! Panasonic FZG1-3 Tablet - i5-5G I 4GB I 256SSD I 10,1" WUXGA Touch I Cam I W10 I Garancia!
- Telefon felvásárlás! Samsung Galaxy A15, Samsung Galaxy A25, Samsung Galaxy A35, Samsung Galaxy A55
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest