Bài 1: Viết chương trình nhập vào số nguyên N. Tính tích các số lẻ <=n ra màn hình? (Gợi ý: Biến đếm i chạy từ 1 đến n, kiểm tra nếu biến đếm i là số lẻ thì nhân dồn giá trị biến i vào biến tích T). Bài 2: Nhập vào 1 số nguyên n. Hãy đếm xem n có bao nhiêu ước số? (Gợi ý: Biến đếm i chạy từ 1 đến n, kiểm tra nếu biến đếm i là ước số của n thì biến đếm sẽ tăng lên 1 đơn vị).
1/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write(‘Nhap n: ‘);readln(n);
s:=1;
For i:=1 to n do
Begin
If i mod 2=1 then
s:=s*i;
end;
Write(‘Tich so le co trong day la: ‘,s);
readln;
end.
2/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write(‘Nhap n: ‘);readln(n);
for i:=1 to n do
If n mod i=0 then s:=s+1;
Writeln(‘So luong uoc chung cua so ‘,n,’ la: ‘,s);
readln;
end.
bài 1
S:=1;
For i:=1 to n do if i mod 2=1 then s:=s*i;//s la bien kq
bài 2
Dem:=0;
For i:=1 to n do if n mod i =0 then dem:=dem+1;//dem là bien kq