Viết chương trình tính tổng của các số lẻ từ 1 đến N với N là số tự nhiên được nhập từ bàn phím ( Thuật toán và chương trình )

* Thuật toán :

- Bước 1 : nhập số n

- Bước 2 : i ← 1, s ← 0

- Bước 3 : nếu i > n thì đưa ra giá trị s rồi kết thúc

- Bước 4 :

- Bước 4.1 : nếu i mod 2 <> 0 thì s ← s + i

- Bước 4.2 : i ← i + 1 quay lại bước 3

* Viết chương trình :

uses crt;

var i, n, s : integer;

begin

clrscr;

write('nhap so n : ');readln(n);

s := 0;

for i := 1 to n do

if i mod 2 <> 0 then s := s + i;

writeln('s = ', s);

readln

end.

thuật toán:

B1: nhập n;

B2: s←0; i←1;

B3: nếu i=n thì xuất s;

B4: nếu(i mod 2=1) thì s←s+i;

B5: i←i+1;

B6: quay lại B3;

chương trình:

program bai_giai;
uses crt;
var n,i,s:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do if(i mod 2=1)then s:=s+i;
write('s=',s);
readln;
end.