VCT nhập vào vận tốc và quãng đường===>tính thời gian sử dụng while

0 bình luận về “VCT nhập vào vận tốc và quãng đường===>tính thời gian sử dụng while”

1. uses crt;
   var v, t, s, A: integer;
   begin
   clrscr;
   write (‘nhap van toc: ‘);   readln (v);
   write (‘nhap quang duong: ‘);   readln (s);
   t:=0;
   while t<s/v do
   begin
   t:=t+1;
   end;
   write (‘thoi gian la: ‘,t);

   readln;
   end.

   Bình luận