câu 1:tính tổng số lẻ nhỏ hơn hoặc bằng N.N nhập từ bàn phím (dùng thêm if và mod). câu 2:tính tổng S=1+1/2+1/3+...+1/100 (gợi ý dùng while do và for do).

Câu 1:- Cho biến i chạy từ 1 đến n.

-  Nếu i chẵn ( i chia 2 dư 0) thì in ra số
mik chỉ bt làm câu 1 thôi

Program cau1;

Uses crt;

Var s,n,i: integer;

Begin

Clrscr;

Write('nhap n = '); readln(n);

For i:=1 to n do if i mod 2 = 1 then write s:=s+i;

Write('tong cac so le nho hon',n,' la ', s);

Readln;

End.

Program cau2;

Uses crt;

Var i,S: integer;

Begin 

Clrscr;

S:=0;

i:=1;

While i<=100 do

                Begin

               S:=S+1/i;

               i:=i+1;

               End;

Writeln('tong so can tim la ', t :0:2 );

Readln;

End.

Zw