Viết chương trình sử dụng câu lệnh While . . do, nhập vào số nguyên N. a) Đếm các số tự nhiên trong khoảng từ 1.. N. b) Đếm các số lẻ trong khoảng từ

0 bình luận về “Viết chương trình sử dụng câu lệnh While . . do, nhập vào số nguyên N. a) Đếm các số tự nhiên trong khoảng từ 1.. N. b) Đếm các số lẻ trong khoảng từ”

1. uses crt;
   var dem,le,snt,i,j,n:longint;
   kt:boolean;
   begin
   clrscr;
   writeln(‘nhap n’);readln(n);

   {dem cac so tu 1 den n}
   dem:=0;
   i:=1;
   while i<=n do
   begin
   dem:=dem+1;
   i:=i+1;
   end;
   writeln(dem);

   {dem cac so le tu 1 den n}
   le:=0;
   i:=1;
   while i<=n do
   begin
   if i mod 2 <> 0 then le:=le+1;
   i:=i+1;
   end;
   writeln(le);

   {dem cac so nguyen to tu 1 den n}
   i:=1;
   snt:=0;
   while i<=n do
   begin
   kt:=true;
   for j:=2 to i-1 do
   if i mod j = 0 then kt:=false;
   if kt=true then snt:=snt+1;
   i:=i+1;
   end;
   writeln(snt);
   readln;
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var n,i,d1,d2,d3: longint;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to a div 2 do
                   If a mod i = 0 then exit(false);
           exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           i:=1;
           While i<=n do
           Begin
                   inc(d1);
                   If i mod 2 = 1 then inc(d2);
                   If ngto(i) then inc(d3);
                   inc(i);
           End;
           Writeln(‘Co ‘,d1,’ so tu nhien’);
           Writeln(‘Co ‘,d2,’ so le’);
           Write(‘Co ‘,d3,’ so nguyen to’);
           Readln
   End.

   Bình luận