Sử dụng lệnh WHILE để viết chương trình in ra 50 số nguyên dương đầu tiên và mỗi số in trên một hàng

0 bình luận về “Sử dụng lệnh WHILE để viết chương trình in ra 50 số nguyên dương đầu tiên và mỗi số in trên một hàng”

1. Program BTH;
   uses crt;
   var i:longint;
   Begin
           clrscr;
           i:=0;
           While i<=50 do
           Begin
           writeln(i);
           i:=i+1;
           end;
           readln;
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var i: longint;
   Begin
           Clrscr;
           i:=1;
           While i<=50 do
           Begin
                   Writeln(i);
                   inc(i);
           End;
           Readln
   End.

   Bình luận