Viết chương trình nhập vào từ bàn phím tên một quốc gia trên thế giới và dân số cùng diện tích (số liệu mới cập nhật) của quốc gia đó; Tính mật độ dân số của quốc gia đó (làm tròn 1 chữ số thập phân và có ghi rõ đơn vị) và xuất kết quả ra màn hình.
Viết chương trình nhập vào từ bàn phím tên một quốc gia trên thế giới và dân số cùng diện tích (số liệu mới cập nhật) của quốc gia đó; Tính mật độ dân số của quốc gia đó (làm tròn 1 chữ số thập phân và có ghi rõ đơn vị) và xuất kết quả ra màn hình.
Program BTT;
Uses crt;
Var St: String;
ds,dt: qword;
Begin
Clrscr;
Write(‘NUOC: ‘); Readln(St);
Write(‘Dan so: ‘); Readln(ds);
Write(‘Dien tich: ‘); Readln(dt);
Write(‘Mat do: ‘,ds/dt:0:1);
Readln
End.
var ten:string;
ds,dt,md:real;
begin
write(‘Nhap ten quoc gia: ‘); readln(ten);
write(‘Nhap dan so: ‘); readln(ds);
writr(‘Nhap dien tich: ‘); readln(dt);
md:=ds/đt;
write(‘Mat do dan so cua nuoc ‘,ten,’ la: ‘,md:0:1);
readln;
end.