A u redu je to inttostr (convert integer to string) a komanda je str(int,str);
pa evo koda:::::
Code:
program na_decimale (input,output);
uses crt;
var b,d,dec:longint;
function Nadji(b,d,dec:Integer):String;
var i,j,e: Integer;
s,inttostr,a:String;
begin
str((b div d),inttostr);
s:=inttostr+',';
i := 0;
b := b mod d;
while i<dec do
begin
b:=b*10;
e:=b div d;
str(e,a);
s:=s+a;
b:=b mod d;
inc(i);
end;
Nadji:=S; readln;
end;
begin
clrscr;
write('DJELJENIK= ');
read(b);writeln;
write('djelilac= ');
read(d); writeln;
write('na kolko decimala= ');
read(dec);writeln;
writeln('REZULTAT');
WRITELN;
writeln(b,'/',d,' na ',dec,' decimala je ');
writeln;
write(nadji(b,d,dec));
writeln;
writeln(' "ENTER"'); READLN;
end.
Osmica hvala na knizi