Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do if i mod 2=0 then inc(s,i);
writeln('Tong: ',s);
readln;
end.
Câu 2:
uses crt;
var n,i:longint;
s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/i;
writeln('S=',s:0:2);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do if i mod 2=1 then inc(s,i);
writeln('Tong: ',s);
readln;
end.
Câu 4:
uses crt;
var n,i,s:longint;
begin
clrscr;
for i:=1 to 101 do if i mod 2=1 then inc(s,i);
writeln('Tong: ',s);
readln;
end.