Repeat petlja

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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);

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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 verovatno mi nece nista priznati jer je krupna greska...