B1: S:=30; n:=2; B2: nếu S<= 20,5 thì chuyển đến B4 B3: S:= S-n và quay lại B2 B4: Thông báo kết quả và kết thúc thuật toán . Viết phương trình thể hi

0 bình luận về “B1: S:=30; n:=2; B2: nếu S<= 20,5 thì chuyển đến B4 B3: S:= S-n và quay lại B2 B4: Thông báo kết quả và kết thúc thuật toán . Viết phương trình thể hi”

1. program thuattoan;

   uses crt;

   var n:byte;

          S:real;

   begin

   clsrcr;

   S:=30; n:=2;

   while s>20.5 do

    s:=s-n;

   writeln(s:2:0);

   readln

   end.

   Bình luận

2. uses crt;
   var n:integer;
       s:real;
   BEGIN
           clrscr;
           s:=30; n:=2;
           while s>20.5 do
           s:=s-n;
           write(‘Ket qua la:’,s:0:0);
           readln
   END.

   Bình luận