Xác định bài toán

- Input: Khoảng cách từ nhà đến trường và tốc độ đi từ nhà đến trường
- Output: Thời gian đi từ nhà đến trường

Viết chương trình

Uses crt;
Var 
    s,v,t: real;
Begin
    clrscr;
    write('Nhap khoang cach tu nha den truong (km): '); readln(s);
    write('Toc do di tu nha den truong (km/h): '); readln(v);
    t:=s/v;
    writeln('Thoi gian di tu nha den truong la ',t:0:2,' gio');
    readln;
End.

Xác định bài toán:

input: s (km), v (km/h);

output: thời gian bình đi đến trường;

chương trình:

program bai_giai;
uses crt;
var s,v:real;
begin
clrscr;
write('nhap so km:');readln(s);
write('nhap van toc:');readln(v);
write('thoi gian Binh di tu nha den truong la: ',s/v:4:2,' gio');
readln
end.