Giúp mình với mọi người Câu hỏi B1 5<=10,x<--0,5 B2 nếu 5<5.2 chuyển sang b4 B3 5<--5-x,quay lại bước 2 B4 thông báo 5,và kết thúc Viết chương trình

0 bình luận về “Giúp mình với mọi người Câu hỏi B1 5<=10,x<--0,5 B2 nếu 5<5.2 chuyển sang b4 B3 5<--5-x,quay lại bước 2 B4 thông báo 5,và kết thúc Viết chương trình”

1. Mình thay số $5$ được gán đó  bằng biến nha .-. Chứ gán số không làm được 

   Program Hotboy ;

   Uses crt;

   Var i,x : integer ;

   Begin

   Clrscr ;

   i:=10; x:=0.5;

   While i> 5.2 do 

   Begin

   I:=i-x ;

   End;

   Writeln(i);

   Readln

   End.

   Bình luận

2. program thuattoan;

   uses crt;

   var x,n:integer;

   begin clrscr;

        n:=10; x:=0,5;

      while n<5.2 do n:=5-x;

   readln;

   end.

   Học tốt!

   Bình luận