var m,n,k: integer;
t:real;
begin
write('Nhap vao m= ');readln(m);
write('Nhap vao n= ');readln(n);
write('Nhap vao k= ');readln(k);
t:=m/n;
writeln(m,'/',n,'=',t:0:k);
readln;
end.
Của bạn đây
Mã:var m,n,k: integer; t:real; begin write('Nhap vao m= ');readln(m); write('Nhap vao n= ');readln(n); write('Nhap vao k= ');readln(k); t:=m/n; writeln(m,'/',n,'=',t:0:k); readln; end.