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.