ÔN TẬP(FOR, WHILE)(bài tập-lời giải)

Bài tập ôn tập: VIẾT CÁC CHƯƠNG TRÌNH SAU
Làm bằng hai cách for… do và while …do
Bài 1: Tính tổng S = 1 + 1/2+ 1/3 + 1/5 + . . . + 1/(2*n + 1)
Bài 2 Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăn chân chẵn
Hỏi có bao nhiêu gà, bao nhiêu chó?
Bài 3: Tính tổng S = (-1) + 2 + (-3) + (-4) + (-5) + … + (-1)n.n
Bài 4: Tính tổng bình phương n số tự nhiên đầu tiên
Vd: nhập n = 5 ( S = 12 + 22 + 32 + 42 + 52 = 55
(Tương tự tính cho tổng lập phương)
Bài 5:
Có n số, các số được nhập từ bàn phím. Trong n số vừa nhập có bao nhiêu số chẵn và bao nhiêu số lẻ?
Vd: Nhập n = 5, lần lượt em nhập 5 số bất kì
Nhập số thứ 1: 2
Nhập số thứ 1: 5
Nhập số thứ 1: 3
Nhập số thứ 1: 2
Nhập số thứ 1: 9
( Kết quả: Trong 5 số vừa nhập có 2 số chẵn và 3 số lẻ.
Bài 6: Có n số, các số được nhập từ bàn phím. Tính trung bình các số vừa nhập.
Bài 7: Nhập số n và kiểm tra số đó có là số nguyên tố không?
Bài 1: tổng phân số lẻ
var i, n:integer; s:real;
begin
readln(n);
s:= 1;
// for i:=1 to n do s:= s + 1/(2*i + 1);
while i<= n do begin
s:= s + 1/(2*i + 1);
i:= i + 1
end;

write(s:5:1);
readln
end.
Bài 2: tính số gà, số chó
var ga, cho:byte;
begin

cho:=1;
// for cho:=1 to 24 do
while cho<=24 do
begin
ga:= 36 -cho;
if cho*4 + ga*2 = 100 then write(`so cho: `,cho,` so ga: `,ga);
end;
readln
end.
Bài 3 tổng số âm lẻ, dương chẵn
var i, n :integer;
begin
readln(n);
//for i:= 1 to n do if i mod 2 = 0 then s:= s+ i
else s:= s - i;
while i<= n do
begin
if I mod 2 = 0 then s:= s + i
else s:= s – I;
i:= I + 1;
end;
write(s);
readln;
end.
Bài 4: ttổng bình phương n số tự nhiên đấu tiên
var i,n:byte; s:longint;
begin
write(`nhap n: `); readln (n);
//fori:= 1 to n do
while i<= n do
begin
s:= s + i*i;
i:= i + 1;
end;
write(`tong binh phuong `,n,` so t nhien dautien S = `, s);
readln
end.
Bài 5: đếm số chẵn lẻ
var i, demchan,demle,n,x: integer;
begin
readln(n);
i:=1;
//for i:= 1 to n do
while i<=n do
begin
write(`nhap so thu `,i,` :`);
readln(x);
if x mod 2 = 0 then demchan:=demchan + 1
else demle:=demle+1;
i:= i+1
end;
write(`trong `,n,` so co `,demchan,` so chan va co `,demle,` so le`);
readln
end.
Bài 6 tính trung bình cộng
Program trungbinhcong;
Uses crt;
Var
So,tong : Integer;
Dem: byte;
Tb: real;
Begin
Clrscr;
Dem := 0;
Tong := 0;
Write(‘nhap n: ’); readln(N);
While dem < = n 0 do
Begin
Write(`nhap so thu `,