Input: số tự nhiên n

Output: tổng các số lẻ từ 1 đến n

Thuật toán:

B1: Xét từ 1 đến n, nếu hết thì tới B4

B2: Nếu là số lẻ thì thực hiện bước tiếp theo

B3: Cộng vào tổng rồi xét tiếp B1

B4: In ra tổng

Chương trình:

Uses crt;
Var
    n,i,s: integer;
Begin
    repeat
    clrscr;
        readln(n);
    until (n>0);
    s:=0;
    for i:=1 to n do
        if i mod 2=1 then s:=s+i;
    writeln(s);
    readln;
End.

+,Input:

Nhập số n từ bàn phím.

+,Output:

Một số tự nhiên là kết quả bài tập.

+,Thuật toán:

B1: Xét từ 1 đến n ;

B2: Nếu là số lẻ thì thức hiện bước tiếp theo:

B3: Cộng vào tổng rồi xét tiếp cho chạy đến n

B4: In ra tổng.

+,Code chạy pascal:

var n,t,i:longint;
begin
write('nhap n:');
read(N);
for i:=1 to n do
if (i mod 2=1) then t:=t+i;
write('tong la:',t);
readln;
end.