Hirdetés
- Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- DFI és DFI Lanparty gyűjteményem
- Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Reklámmentesítés HyperOS-ben Xiaomi/POCO/Redmi
- GoodSpeed: Egy bihari a Hajdúságban
- Real Racing 3 - Freemium csoda
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- Brogyi: CTEK akkumulátor töltő és másolatai
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
Új hozzászólás Aktív témák
-
cattus
addikt
válasz
Mr. Erikszon #7474 üzenetére
Előttem már kb. leírták, nagyjából hogy néz ki, de itt van nyelvhűen:
szöveg:=IntToStr(szam);
szöveg:=LeftStr(szöveg,1,2)+LeftStr(szöveg,4,2);
szam:=StrToInt(szöveg);Ehhez viszont a uses-hoz kell a StrUtils, ha jól emlékszem.
-
válasz
Mr. Erikszon #7474 üzenetére
Őőő, pascalban sosem voltam jó, de itt egy pszeudo megoldás:
szoveg = int-to-text(szam)
szoveg = left(szoveg,2) + right(szoveg,2)
szam = text-to-int(szoveg)
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Milyen billentyűzetet vegyek?
- Elektromos autók - motorok
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- Google Chrome
- Poco F7 – bajnokesélyes
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Androidos tablet topic
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- Kerékpárosok, bringások ide!
- További aktív témák...
- Apple iPhone 15 Pro, 128Gb, független, fekete, 1 év garancia
- AMD Ryzen 5 5600X 6-Core 3.7GHz AM4
- Bomba ár! HP ProBook 430 G3 - i3-6GEN I 4GB I 128SSD I HDMI I 13,3" HD I Cam I W10 I Garancia!
- Bomba ár! HP ProBook 430 G5 - i3-7GEN I 4GB I 128GB SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- Bomba ár! HP EliteBook 845 G11 - Ryzen 5 8540U I 16GB I 512SSD I 14,1" Touch I Cam I W11 I NBD Gari!
- Akció - Dell Latitude 5400 - i7 8665U, 8-16GB RAM, SSD, EU bill, számla, 6 hó
- DXRACER Prince L gamer szék
- Azonnali készpénzes AMD Ryzen 1xxx 2xxx 3xxx 5xxx processzor felvásárlás személyesen / csomagküldés
- GYÖNYÖRŰ iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3427, 100% Akkumulátor
- HP ZBook Firefly 14 i7-1165G7 16GB 512GB Nvidia Quadro T500 4GB 14" FHD 1 év garancia
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő