lập trình pascal. cho xe đạp đi với vận tốc v=10km/h xe máy đi với vận tốc v=30km/h hai xe đi cùng hướng , cung xuất phát 1 lúc , cùng thời gian .lập trình khoảng cách giữa 2 xe khi đi được thời gian t (nhập từ bàn phím)
lập trình pascal. cho xe đạp đi với vận tốc v=10km/h xe máy đi với vận tốc v=30km/h hai xe đi cùng hướng , cung xuất phát 1 lúc , cùng thời gian .lập trình khoảng cách giữa 2 xe khi đi được thời gian t (nhập từ bàn phím)
program oken;
uses crt;
var dap,may,t: byte;
begin
clrscr;
write(‘nhap thoi gian: ‘); readln(t);
dap:=10; may:=30;
writeln(‘Khoang cach giua 2 xe: ‘,(may*t)-(dap*t),’ km’);
readln;
end.