viết ctrinh in ra màn hình các sô chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1 đến n. biết n nhập vào từ

0 bình luận về “viết ctrinh in ra màn hình các sô chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1 đến n. biết n nhập vào từ”

1. Program Hotboy ;

   Uses crt; 

   Var n,i,a : integer;

   Begin

   a:=0;

   Write(‘nhap n’); readln(n);

   For i:=1 to n do 

   If (i mod 3= 0) then inc(a);

   Writeln(‘so so chia het cho 3 la’,a);

   Readln

   End.

   Bình luận

2. program oken;
   uses crt;
   var n,i,dem:integer;
   begin
           clrscr;
           write(‘nhap so n: ‘); readln(n);
           for i:=1 to n do
                   if (i mod 3=0) then
                           begin
                                   write(i,’ ‘);
                                   dem:=dem+1;
                           end;
           writeln;
           if dem=0 then
                   writeln(‘tu 1 den ‘,n,’ khong co so chia het cho 3.’)
           else
                   writeln(‘co ‘,dem,’ so chia het cho 3.’);
           readln;
   end.

   Bình luận