6.4.. Napisati program koji učitava dvocifreni broj i ispisuje proizvod cifara i količnik druge i prve cifre s lijeva.

Opis rješenja:

Opis programa:

Listing programa:

PROGRAM p06411129; 
VAR 
  a, x, y, p: integer;
  k : real;
BEGIN
   WRITE('Unijeti dvocifren broj: ');
  READLN(a);
  WRITELN('Broj ', a);
  x := a DIV 10;
  y := a MOD 10;
  p := x * y;
  k := y / x;
  WRITELN('Proizvod cifara tog broja je ', p);
  WRITELN('Kolicnik druge i prve cifre tog broja je ', k);
  READLN;
END.

Ispis na ekranu:

Index