6.4.. Sabrati cifre generisanog trocifrenog slučajnog broja. Opis rješenja: Trocifren broj se dobija izrazom: trunc((1000-100) * random) + 100;.(Vidi >>) Funkcija TRUNC vraća cio dio realnog broja. MOD kreira ostatak cjelobrojnog dijeljenja. Opis programa: Listing programa: PROGRAM P06421123; VAR broj, suma, s, d, j: Integer; BEGIN RANDOMIZE; broj := TRUNC((1000-100) * RANDOM) + 100; { trocifren broj } s:= broj div 100; { cifra stotica } d:= broj div 10 mod 10; { cifra desetica } j:= broj mod 10; { cifra jedinicia } suma := s + d + j; WRITELN('Broj ', broj); WRITELN('Suma cifara = ', s, ' + ', d, ' + ', j, ' = ', suma); READLN; END. Ispis na ekranu:
|
|||||||
|