6.4.. Napisati program koji generiše dvocifren broj, ispiše ga. Zatim ispiše cifre u obrnutom redoslijedu.

Opis rješenja: Dvocifren broj se dobija izrazom: trunc((100-10) * random + 10);.(Vidi >>) Funkcija TRUNC vraca cio dio realnog broja. MOD kreira ostatak cjelobrojnog dijeljenja.

Opis programa:

Listing programa:

PROGRAM P06421117;
VAR
  broj, desetica, jedinica : Integer;

BEGIN
  RANDOMIZE;
  broj := TRUNC((100-10) * RANDOM + 10);      { dvocifren broj }

  desetica := trunc(broj/10);
  jedinica := broj mod 10;

  WRITELN('broj ', broj, ' cifra desetica ', desetica, ' cifra jedinica ', jedinica);
  READLN;
END.

Ispis na ekranu:

Index