6.4. Generisati dva četverocifrena slučajna broja. Sabrati cifre desetica prvog i jedinica drugog broja. Sabrati cifre stotica prvog i desetica drugog broja.
Opis programa:
Listing programa:
PROGRAM P06421146;
var
broj,a,b,p:integer;
begin
randomize;
broj := trunc((100-10)*random+10);
writeln('taj broj je', broj);
a := broj div 10;
b := broj mod 10;
p := 1;
p := a*b;
writeln('proizvod je',p);
READLN;
END.
Izvođenje programa:
Index
|
|