6.. Napisati program koji generiše trocifren broj, ispiše ga. Zatim ispiše cifre u obrnutom redoslijedu jednu ispod druge.
Listing programa:
PROGRAM P06421122;
VAR
broj, s, d, j: Integer;
BEGIN
RANDOMIZE;
WRITELN('cifre trocifrenog'); { naslov }
broj := TRUNC( (1000-100) * RANDOM) + 100; { trocifren broj }
s:= broj div 100; { cifra stotica }
d:= broj mod 100 div 10; { cifra desetica }
j:= broj mod 10; { cifra jedinicia }
WRITELN('Broj ', broj);
WRITELN('cifra jedinica ', j);
WRITELN('cifra desetica ', d);
WRITELN('cifra stotica ', s);
READLN;
END.
Ispis na ekranu:
Index
|
|