MyCity » Pascal » zadatak

zadatak

Napisano na dan: 19.11.2012

zadatak
Sledeća strana Pagination

Idi na vrh

Poslao: 19 Nov 2012 08:59
Idi na vrh
offline
  • Pridružio: 22 Maj 2011
  • Poruke: 66

mozete li mi napisati zadatak koji prebrojava velika i mala slova u recenici



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 19 Nov 2012 09:48
Idi na vrh
offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

PROGRAM MilsimStaRecixD; VAR   a:STRING;   x,b,velikaSlova,malaSlova:INTEGER; BEGIN   b := 0;   x := 0;   velikaSlova := 0;   malaSlova := 0;   WRITELN('Unesite recenicu:');   READLN(a);   b := LENGTH(a);   WHILE(x <= b) DO   BEGIN     IF( a[x] in ['A'..'Z'] ) THEN    BEGIN      velikaSlova := velikaSlova + 1;    END;    IF ( a[x] in ['a'..'z'] ) THEN    BEGIN      malaSlova := malaSlova + 1;    END;    x := x + 1;   END;   WRITELN(malaSlova);   WRITELN(velikaSlova);   READLN; END.



Poslao: 19 Nov 2012 14:47
Idi na vrh
offline
  • Pridružio: 22 Maj 2011
  • Poruke: 66

hvala puno dva dana se mucim xP poprilicno sam nepismen sto se tice paskala

MyCity » Pascal » zadatak

Ko je trenutno na forumu
 

Ukupno su 1343 korisnika na forumu :: 103 registrovanih, 7 sakrivenih i 1233 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 13297 - dana 20 Jan 2026 17:42

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, aleksjevt, aleph_one, Apok, Aska, babaroga, Betta, boj.an, Bojan198527, Bombarder, boromir, boxbole, BrcakRS, bufanje, cincarin, Clouseau, cojapop, curiosity, darkdruid72, dekan.m, del boy, djboj, draganca, draganl, Drugsparrow, dskrlec33, DuškoMraz, DzigiNS, Georgius, Giskard, HogarStrashni, ivan979, jimi_agf, JohnDoe, Jose, kapela, kila011, king011, Kruger, kuntakinte, kybonacci, Lazur_01, lcc, Leteća Krofna, ludvig 78, Manjane, MarijaC84, MaschinenPistole, Mastrum Ridkali, mat, mean_machine, Meklejn, Mercury, mikrimaus, milenko crazy north, mileta4, Miletić Zoran, mir, Mis uz pusku, Mićko, moldway, N.e.m.a.nj.a., nazgul75, neko iz mase, neutrino, nick79, ObelixSRB, orfanel, pedja.st, pein, Pekman, pobeda, Posmatrac77OKB, precan, radza1, raptorsi, Ripanjac, ruma, Sale0501, samipag822, Sharpshooter, shone34, Sin Boskic, Sirius, Siti2, skok, Sky diver 29, Szigetwar, tmanda323, Troja, vaci, vathra, Velizar, vidra1, VJ, voja64, vukajlo71, xAlex2, XBMC, Zastava, zauzet, zemljanin, Zukov