6.4.. Sabrati cifre generisanog dvocifrenog slucajnog broja. Opis rješenja: Pri pretvaranju se koristi osobina pozicionog sistema. Dvocifren broj Opis programa: Listing programa: PROGRAM P06421111; VAR broj, desetica, jedinica, suma : Integer; BEGIN RANDOMIZE; broj := TRUNC((100-10) * RANDOM) + 10; { dvocifren broj } desetica := broj DIV 10; jedinica := broj MOD 10; suma := desetica + jedinica; WRITELN('Generisani dvocifren broj ', broj); WRITELN('Suma cifara = ', desetica, ' + ', jedinica , ' = ', suma); READLN; END. Ispis na ekranu: |
|||||||
|