Viết chương trình nhập vào số KM(kilomet)in ra màn hình số M(mét)sau khi quy đổi
2 câu trả lời
Program baitap;
Uses crt;
Var km:real;
Begin
Clrscr;
Write('Nhap so kilomet:'); Readln(km);
Writeln('Chuyen doi thanh met:', km*1000);
Readln
End.
program bai_giai;
uses crt;
var km,m:real;
begin
clrscr;
write('nhap so km:');readln(km);
m:=km*1000;
write(km,' km doi ra m la:',m);
readln;
end.