Legfrissebb anyagok
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
- Goddess of Victory: Nikke
- Építő/felújító topik
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Hamarosan rézhiánytól szenvedhet az egész chipgyártás
- Bemutatkozott a Poco X7 és X7 Pro
- AMD GPU-k jövője - amit tudni vélünk
- sziku69: Fűzzük össze a szavakat :)
- Mibe tegyem a megtakarításaimat?
- sziku69: Szólánc.
- Kertészet, mezőgazdaság topik
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Eladó karcmentes állapotban levő Apple iPhone 14 Plus 256GB / AKKU 100% / 12 hónap jótállás
- Azonnali készpénzes AMD Radeon RX 6000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
- ÁRGARANCIA! Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Csere-Beszámítás! Asztali számítógép PC Játékra! I5 12400F / RTX 3070 / 32GB DDR4 / 500GB SSD
- Csere-Beszámítás! RTX Gamer Számítógép PC Játékra! I5 12400F / RTX 3070 / 32GB DDR4 / 1TB SSD
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest