Viết chương trình nhập số tự nhiên khác không ( sử dụng câu lệnh lặp với số lần chưa biết trước)

0 bình luận về “Viết chương trình nhập số tự nhiên khác không ( sử dụng câu lệnh lặp với số lần chưa biết trước)”

1. uses crt;

   var n,i:longint;

   begin

   clrscr;

   write(‘nhap n: ‘);readln(n);

   for i:=1 to n do

   writeln;

   readln

   end.

   Bình luận

2. *dùng repeat…until

   program khac_0;

   uses crt;

   var n:integer;

   begin

          clrscr;

          repeat

                 write(‘Nhap so: ‘);  readln(n);

          until n<>0;

          readln;

   end.

   *dùng while…do

   program khac_0;

   uses crt;

   var n:integer;

   begin

          clrscr;

          write(‘Nhap so: ‘);  readln(n);

          while n=0 do

                 begin

                        write(‘Nhap so: ‘);  readln(n);

                 end;

          readln;

   end.

   Bình luận