6.4.. Napisati program koji generiše dvocifren broj, ispiše ga. Zatim ispiše cifre u jednu ispod druge. Opis rješenja: Pri pretvaranju se koristi osobina pozicionog sistema. Dvocifren broj Listing programa: PROGRAM P06421160; VAR broj, d, j: Integer; BEGIN RANDOMIZE; broj := TRUNC( (100-10) * RANDOM) + 10; { dvocifren broj } d:= broj DIV 10; { cifra desetica } j:= broj MOD 10; { cifra jedinicia } WRITELN('Broj ', broj); WRITELN('cifra desetica ', d); WRITELN('cifra jedinica ', j); READLN; END. Ispis na ekranu:
|
|||||||
|