Bài tập Tin - Câu lệnh lặp xác định

CÂU LỆNH LẶP XÁC ĐỊNH 
Bài 1:viết chương tình tính tổng 10 số tự nhiên đầu tiên.
Var I, s: byte;
Begin 
	S:=0;
	For i:= 1 to 10 do S:= S + I;
	Write(‘ Tong 10 so tu nhien dau tien S = ‘, S);
	Readln
End.
Bài 2:viết chương tình tính tổng n số tự nhiên đầu tiên.
Var I, s: integer;
Begin 
	Write(‘nhap n: ’);	readln(n);
	For i:= 1 to n do S:= S + I;
	Write(‘ Tong ’,n,’ so tu nhien dau tien S = ‘, S);
	Readln
End.
Bài 3: viết chương tình tính tích 10 số tự nhiên đầu tiên.
Var i:byte;	T: Word;
Begin 
	T:=1;
	For i:= 1 to 10 do T:= t * I;
	Write(‘ Tich 10 so tu nhien dau tien S = ‘, t);
	Readln
End.
Bài 4: viết chương tình tính tích n số tự nhiên đầu tiên.
Var i: integer;	T: longint;
Begin 
	Write(‘nhap n: ’);	readln(n);
	T:=1;
	For i:= 1 to n do T:= t * I;
	Write(‘ Tong ’,n,’ so tu nhien dau tien T = ‘, t);
	Readln
End.
Bài 5: viết chương trình in bảng cửu chương nhân n (1< n <= 10) ra màn hình với n nhập từ bàn phím.
Program bai_tap_thuc_hanh;
Uses crt;
Var N,i:integer;
Begin
 Clrscr;
 Write('Nhap so N='); Readln(N);
 Writeln;
 Writeln('Bang nhan',N);
 Writeln;
 For i:=1 to 10 do
 Begin
 Gotoxy(40,24); Writeln(N,'x',i:2,'=',N*i:3);
 Writeln
 End;
 Readln
End.
Bài 6:viết chương trình đưa ra màn hình các kí tự trong bảng chữ cái từ Aà Z.
Var I: char;
Begin 
	For i:= ‘a’ to ‘z’ do write(i:4);
	Readln
End.
Bài 7: viết chương trình nhập một số nguyên n, tìm tất cả các ước của số n.
Var I,n: integer;
Begin
	Write(‘nhap n: ’); readln(n);
	Write(‘ uoc cua ’, n, ‘ la: ‘);
	For i:= 1 to n do if n mod I = 0 then Write(i:4);
	Readln
End.
Bài 8: viết chương trinh tính tổng A = 1 + , với n là số tự nhiên được nhập từ bàn phím.
Var I,n: integer; A: real;
Begin
	Write(‘nhap n: ’); readln(n);
	For i:= 1 to n do A:= A + 1/i;
	Write(‘Tong A = ’, A:5:1);
	Readln
End.
Bài 9: viết chương trình tính tổng S = -1 + 2 - 3 + 4 +  +(-1)nn, với n là số nguyên dương được nhập từ bàn phím.
var i,s,n:integer;
begin
 write('nhap n: '); readln(n);
 for i := 1 to n do
 if i mod 2 = 0 then S:=s + i
 else S:= s -i;
 write(' Tong S = ',s);
 readln
end.
Bài 11: viết chương trình tinh tổng bình phương S = 12 + 22 + . . . + n2, với n là số nguyên dương được nhập từ bàn phím.
Var i: integer;	T: longint;
Begin 
	Write(‘nhap n: ’);	readln(n);
	For i:= 1 to n do T:= t + i*i ;
	Write(‘ Tong binh phuong’,n,’ so tu nhien dau tien T = ‘, t);
	Readln
End.
Bài 12: viết chương trình tính tổng bình phương của n số dương lẻ đầu tiên, với n là số nguyên dương được nhập từ bàn phím.
Var I, n: integer;	T: longint;
Begin 
	Write(‘nhap n: ’);	readln(n);
	For i:= 1 to n do if I mod 2 0 then T:= t + i*i ;
	Write(‘ Tong binh phuong cac so le cua’,n,’ so tu nhien dau tien T = ‘, t);
	Readln
End.
Bài 13: viết chương trình nhập vào một số nguyên và kiểm tra số đó có là số hoàn thiện không.
Số hoàn thiện là tổng các ước của nó bằng chính nó. 
vd: 6 là số hoàn thiện vì: 1 + 2 + 3 = 6
var I, t, n: integer;
begin
	write(‘nhap n: ’);	readln(n);
	for i:= 1 to n - 1 do 
	if n mod I = 0 then T:= t + I;
	if t = n then write(n,’ la so hoan thien’) 
else write(n,’ khong la so hoan thien‘);
	readln
end.
Bài14: nhập số tự nhiên n, kiểm tra xem n số từ 1 đến n có bao nhiêu số:
chia hết cho 2
chia hết cho 3
chia hết cho 3 và 5
bài viết chương trình chạy chữ từ trên xuống dưới ra màn hình. 
a) var i, dem, n:integer;
begin
 readln(n);
 write('nhung so chia het cho 2: ');
 for i:=1 to n do if i mod 2 = 0 then
 begin inc(dem);write(i:4); end;
 writeln;
 write('co ',dem,' so chia het cho 2');
 readln
end.
b)var i, dem, n:integer;
begin
 readln(n);
 write('nhung so chia het cho 3: ');
 for i:=1 to n do if i mod 3 = 0 then
 begin inc(dem);write(i:4); end;
 writeln;
 write('co ',dem,' so chia het cho 3');
 readln
end.
c) var i, dem, n:integer;
begin
 readln(n);
 write('nhung so chia het cho 3 va 5: ');
 for i:=1 to n do if (i mod 3 = 0) and (I mod 5 = 0) then
 begin inc(dem);write(i:4); end;
 writeln;
 write('co ',dem,' so chia het cho 3 va 5');
 readln
end.
Bài 15: viết chương trình giải bài toán cổ:
Vừa gà vừa chó 
Bó lại cho tròn
36 con 100 chân chẵn
Hỏi có bao nhiêu con gà và bao nhiêu chó?
var cho, ga:integer;
begin
 for cho:=1 to 24 do
 begin
 ga:= 36 - cho;
 if cho*4 + ga*2 =100 then write('so cho:',cho:3,' so ga:',ga:3);;
 end;
 readln
end.