Repeat petlja

Repeat petlja

offline
  • Pridružio: 31 Dec 2011
  • Poruke: 109
  • Gde živiš: Novi Pazar

U zadatku se trazi da se ispisu 10 najvecih trocifrenih brojeva deljivih sa k. Broj k se unosi sa tastature. Koristiti Repeat petlju.

program prvi; var   i, br, k: Integer; begin   Write(' Unesi broj k: '); ReadLn(k);   i:=999;   br:=0;   repeat     if i mod k = 0 then     begin       WriteLn(i);       br := br + 1;     end;     i := i - 1;   until (br < 11) and (i > 99) end.

Program ne javlja gresku ali ni ne radi kako treba to jest ispisuje samo 999 na izlazu i to samo ako je deljiv sa k. Ja koristim Free Paskal IDE.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • dr_Bora  Male
  • Anti Malware Fighter
    Rank 2
  • Pridružio: 24 Jul 2007
  • Poruke: 12280
  • Gde živiš: Höganäs, SE

Imaš Repeat / Until sve dok i ne bude veće od 99, tako da ponavljanja uopšte nema (pošto je već u prvoj proveri i = 998).



Until (br=10) Or (i=99);



offline
  • Pridružio: 31 Dec 2011
  • Poruke: 109
  • Gde živiš: Novi Pazar

Hvala ti, retko kad koristim repeat ali eto sad na ispitu mi je bio taj zadatak i bilo je naglaseno preko ove petlje da se uradi. Pogresno sam uradio na moju zalost GUZ - Glavom U Zid verovatno mi nece nista priznati jer je krupna greska...

Ko je trenutno na forumu
 

Ukupno su 814 korisnika na forumu :: 39 registrovanih, 7 sakrivenih i 768 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: _Rade, A.R.Chafee.Jr., acatomic, Bane san, baza, BSD, comi991, cvrle312, Dannyboy, Darko8, DENIRO, dozorni, dragon986, Drug pukovnik, goxsys, h8propaganda, igormiljus, ikan, ILGromovnik, JimmyNapoli, JOntra, Marko Marković, MB120mm, mercedesamg, Mercury, mnn2, mushroom, nenad81, pein, raskoljnikov, royst33, ruso, Simon simonović, Snorks, Toni, Username1000, VJ, willie, yrraf