Legfrissebb anyagok
PROHARDVER! témák
- Gaming notebook topik
- Ismét 128 és 256 GB-os memóriaszetteket villantott a G.Skill
- BIOS frissítés
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- SSD kibeszélő
- A Windows 11 lett az úr az asztali PC-k piacán
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Vezetékes FEJhallgató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
- Kerékpárosok, bringások ide!
- Mibe tegyem a megtakarításaimat?
- Kertészet, mezőgazdaság topik
- Gaming notebook topik
- Ismét 128 és 256 GB-os memóriaszetteket villantott a G.Skill
- Xiaomi AX3600 WiFi 6 AIoT Router
- exHWSW - Értünk mindenhez IS
- One mobilszolgáltatások
- gban: Ingyen kellene, de tegnapra
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
Új fizetett hirdetések
- LG OLED55G42LW LG Gyári garancia 3 év
- HP EliteBook 840G6 ! AKCIÓ!!! a készlet erejéig!
- Kobo Aura Edition 2 (N236) 6" háttérvilágításos kijelzővel, 4 GB-os tárhellyel - jó állapotban
- HP ProBook 430 G8, 13,3" FHD IPS, I5-1135GU CPU, 16GB DDR4, 256GB SSD, WIN 11, 27% áfás számla, 1 év
- Playstation Portal - 3 hónap Bolti Garanciával
Üzleti előfizetők hirdetései
- Xiaomi Redmi Note 14 Pro 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Azonnali készpénzes nVidia RTX 2000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- ÁRGARANCIA! Épített KomPhone Ryzen 5 7500F 32/64GB DDR5 RTX 5060Ti 8GB GAMER PC termékbeszámítással
- REFURBISHED - HP USB-C Universal Dock G1 docking station (DisplayLink)
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest