`1.` Tính tổng các số chẵn trong khoảng từ 1 đến n (với n là số tự nhiên được nhập từ bàn phím).

Program Tong_chan;

Uses crt;

Var i,n,tong:integer;

begin

clrscr;

write('Nhap vao n ='); readln(n);

Tong:=0;

for i:=1 to n do

if i mod 2=0 then tong:=tong+i;

Write('Tong cac so chan la:', tong);

readln

end.

`2.` Tính tổng các số lẻ trong khoảng từ 1 đến n (với n là số tự nhiên được nhập từ bàn phím).

Program Tong_le;

Uses crt;

Var i,n,tong:integer;

begin

clrscr;

write('Nhap vao n ='); readln(n);

tong:=0;

for i:=1 to n do

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

Write('Tong cac so le la:', tong);

readln

end.

Học tốt nhé.

uses crt;

var s1,s2,i,n: integer;

begin

clrscr;

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

s1:=0;

s2:=0;

for i:=1 to n do 

if i mod 2=0 then s1:=s1+i else s2:=s2+i;

writeln ('Tong chan: ',s1);

writeln ('Tong le: ',s2);

readln;

end.

$#Trumtinhoc$