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.. N. c) *Đếm số nguyên tố có trong khoảng 1.. N (không cần nhập phần khai báo)

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.

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.