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 1143 korisnika na forumu :: 28 registrovanih, 7 sakrivenih i 1108 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., aleksmajstor, bobomicek, BraneS, Bubimir, cenejac111, draganl, FOX, galerija, Griffon vulture, HrcAk47, Jeremiah, Kibice, Krusarac, mercedesamg, Metanoja, Mi lao shu, MiG-29M2, mikrimaus, mile23, powSrb, tubular, vladetije, voja64, W123, wolf431, zbazin, Čivi