BAI TAP ON THI HOC KI II For While(có lời giải)

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