BT lệnh for...do

1. Viết chương trình tính S=1+2+3+…+n
program tong_1;
var n,s,i:integer;
begin
write(`nhap n= `);readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write(`tong`,n:4,`so nguyen duong dau tien la`,s:8);
readln;
end.
2. Viết chương trình tính S=1-2+3-…+/-n
program tong;
var i,s,n:integer;
begin
write(`nhap n= `);readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s-i
else s:=s+i;
write(`tong la`,s:7);
readln;
end.
3. Viết chương trình tính S=2+4+6+…+n
program tong;
var n,i,s:integer;
begin
writeln (`tong chan`);
write(`nhap n= `);readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then
s:=s+i;
write(`tong la`,s:7);
readln;
end.
4. Viết chương trình tính S=1+3+5+...+n
program tong;
var n,i,s:integer;
begin
writeln (`tong chan`);
write(`nhap n= `);readln(n);
s:=0;
for i:=1 to n do
if i mod 2<>0 then
s:=s+i;
write(`tong la`,s:7);
readln;
end.
5. Viết chương trình tính S=1+1/2+1/3+…+1/n
program tong_1;
var n,i:integer;
s:real;
begin
write(`nhap n= `);readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write(`tong la`,s:7:1);
readln;
end.
6. Viết chương trình tính S=1+1/3+1/5+...+1/n
program tong_1;
var n,i:integer;
s:real;
begin
write(`nhap n= `);readln(n);
s:=0;
for i:=1 to n do
if I mod 2<>0 then s:=s+1/i;
write(`tong la`,s:7:1);
readln;
end.
7. Viết chương trình tính S= 1+1/2+1/4+..+1/n
program tong_1;
var n,i:integer;
s:real;
begin
write(`nhap n= `);readln(n);
s:=0;
for i:=1 to n do
if I mod 2=0 then s:=s+1/i;
write(`tong la`,s:7:1);
readln;
end.
8. Viết chương trình tính S=1-1/2+1/3-1/4+…+/-1/n
program tong;
var i,n:integer;
s:real;
begin
write(`nhap n= `);readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s-1/i
else s:=s+1/i;
write(`tong la`,s:7:1);
readln;
end.
9. Viết chương trình giải bài toán cổ sau: “ Vừa gà vừa chó, bó lại cho tròn, 36 con, 100 chân chẵn”
Program ga_cho;
Var
a,b:integer;
Begin
for a:=1 to 36 do
for b:=1 to 36 do
if (2*a+4*b=100) and (a+b=36) then
begin
writeln(`so ga =`,a:3);
writeln(`so cho =`,b:3);
end;
Readln;
End.
10. Viết chương trình p=1.2.3…n
program tich;
var i,p,n:longint;
begin
writeln(`tinh giai thua`);
write(`nhap n= `);readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
write(`tich`,n: