Câu 1:
var n,t,d,i: longint;
begin
writeln('Nhap so tu nhien n: ');
readln(n);
for i:=1 to n do if (i mod 2 = 1) then
begin
t:=t+i;
inc(d);
end;
writeln('Tong cac so le tu 1 toi n la: ',t);
writeln('So cac so le tu 1 toi n la: ',d);
end.
Câu 2:
uses crt;
var i,n,temp,temp1,t,d,z: byte; kt: boolean;
begin
clrscr;
write('Nhap so n: ');
readln(n);
t:=0; d:=0;
for i:=2 to n do
begin
kt:=true;
temp1:=trunc(sqrt(i));
for z:=2 to temp1 do
if (i mod z = 0) then
begin
kt:=false;
break;
end;
if (kt) then
begin
inc(d);
t:=t+i;
end;
end;
writeln('Tong cac so nguyen to tu 1 toi n la: ',t);
writeln('So cac so nguyen to tu 1 toi n la: ',d);
readln;
end.
