Hirdetés
Legfrissebb anyagok
LOGOUT témák
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- bambano: Bambanő háza tája
- Lalikiraly: Kinek milyen setupja van?
- Gurulunk, WAZE?!
- eBay-es kütyük kis pénzért
- Parci: Milyen mosógépet vegyek?
- hcl: Zyxel zizzenés
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
Új fizetett hirdetések
- Sharp 55FN2EA UHD Android LED Smart Televízió, 139cm
- Lenovo Thinkpad L580, 15,6" FHD kijelző I5-8250U, 16GB DDR4, 256GB SSD, W11, Számla, 1 év garancia
- Iiyama ProLite E2607WS (26" 1920x1200)
- BESZÁMÍTÁS! HUAWEI MateBook 14 üzleti notebook - i5 1135G7 16GB DDR4 512GB SSD Intel Iris Xe IGP W11
- BESZÁMÍTÁS! Apple iPad Pro 13 2024 M4 16GB/2TB WiFi tablet garanciával hibátlan működéssel
Üzleti előfizetők hirdetései
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB DDR5 RTX 5060 8GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- LG 48B4 - 48" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- HIBÁTLAN iPhone 14 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3527, 94% Akkumulátor
- GYÖNYÖRŰ iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3049, 94% Akkumulátor
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest