Sử dụng lệnh while-do viết chương trình in ra các số lẻ nhỏ hơn n ( Với n được nhập). Sao cho 5 số lẻ được in trên một dòng.

0 bình luận về “Sử dụng lệnh while-do viết chương trình in ra các số lẻ nhỏ hơn n ( Với n được nhập). Sao cho 5 số lẻ được in trên một dòng.”

1. Program Hotboy;

   uses crt;

   Var n,i: integer;

   Begin

   Clrscr;

   i:=1;

   Write(‘nhap n’);

   Readln(n);

   While i<n do

   Begin

   If (i mod 2<>0) then write(i:5);

   End;

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var n,i:integer;

   begin

   clrscr;

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

   i:=1;

   while i<n do 

   begin 

   if i mod 2<>0 then writeln(i:5);

   end;

   readln

   end.

   Bình luận