banjalukaforum.com

PROGRAM TEST;
USES CRT;                                                                 
{Varijable }                                                                 
VAR STRANICA,STRANICAX,OSTATAK,X,BROJAC,INTOSTATAK:INTEGER;                     
{ pocetak programa }                                                         
BEGIN                                                                         
CLRSCR;
WRITE('Unesite broj stranica');                                               
READLN(STRANICAX);                                                           
FOR STRANICA:=1 TO STRANICAX DO                                               
BEGIN                                                                         
OSTATAK:=STRANICA;                                                           
     WHILE OSTATAK<>0 DO                                                     
           BEGIN                                                             
                X:=OSTATAK MOD 10;                                           
                IF X=8 THEN BROJAC:=BROJAC+1;                                 
                OSTATAK:=OSTATAK/10;                                         
                                                                             
     END;                                                                     
                                                                             
END;                                                                         
WRITELN('UKUPAN BROJ PONAVLJANJA: ',BROJAC);                                 
END.               

PROGRAM TEST;
{Varijable }
VAR N,I:INTEGER;
VAR S:REAL;
{ pocetak programa }
BEGIN
WRITE('Unesite broj N:');
READLN(N);
S:=1;
FOR I:=1 TO N DO
   BEGIN
      S:=S*( ( (2*I)/( (2*I)-1 ) ) * ( (2*I)/( (2*I) +1) ));
      WRITELN(S);
   END;
WRITELN('REZULTAT: ',(S/2):4);
READLN;
END.