Hirdetés
Legfrissebb anyagok
- 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)
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER!
LOGOUT témák
- eBay-es kütyük kis pénzért
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Pillangóhatás: F billentyű meghibásodása -új gamer számítógépasztal
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Lenry: Windows 11 telepítése inkompatibilis gépre
- laskr99: DFI és DFI Lanparty gyűjteményem
- sh4d0w: Ez van, srácok...
- Brogyi: CTEK akkumulátor töltő és másolatai
PROHARDVER! témák
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
btotyi
tag
válasz
goldboy #1371 üzenetére
Egy egyszerű megoldás.
A magánhagzók felsorolását rád bízom. Azt, hogy üres stringet adtak-e meg azon felül pedig gyümölcsnevet illetve az egyéb hibákat nem ellenőrzi.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
Const
MaganHangzok : set of char = ['a','á','e','é'.......];
Var GyNev : String ;
begin
Write('Gyümölcs neve :');
ReadLn(GyNev);
if (GyNev[1] in MaganHangzok)
then
WriteLn('Magánhangzóval kezdődik')
else
WriteLn('Mássalhangzóval kezdődik');
end.
[Szerkesztve]
Új hozzászólás Aktív témák
Aktív témák
- alza vélemények - tapasztalatok
- Samsung Galaxy Buds3 Pro - szárat eresztettek a babok
- Semmibe veszi a KRESZ-t a Tesla Mad Max módja
- One otthoni szolgáltatások (TV, internet, telefon)
- Otthoni hálózat és internet megosztás
- World of Warships
- Kuponkunyeráló
- ROG Xbox Ally X: Összefogás
- Suzuki topik
- Filmvilág
- További aktív témák...
Új fizetett hirdetések
- Bomba Ár! Lenovo ThinkPad L14 G2i - i5-1135G7 I 16GB I 256SSD I 14" FHD I Cam I W11 I Gar
- Bomba Ár! Lenovo ThinkPad L14 G2a - R5 4650U I 16GB I 256SSD I 14" FHD Touch I Cam I W11 I Gar
- Bomba ár! Lenovo ThinkPad L490 - i5-G8 I 16GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
- Bomba ár! Fujitsu LifeBook E544 - i5-4GEN I 8GB I 128SSD I 14" HD+ I DP I Cam I W10 I Garancia!
- ASRock RX 6600 Challenger D 8GB Garanciával!
Üzleti előfizetők hirdetései
- GYÖNYÖRŰ iPhone 11 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3347, 100% Akksi
- Eladó Realme gt neo 2 5g Dobozában tokkal
- Xiaomi Smart Band 8, Újszerű, 1 Év Garanciával
- Eredeti Lenovo 300W töltők - ADL300SDC3A
- HIBÁTLAN iPhone 14 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3017, 100% Akkumulátor
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest