* 1. Tính tổng và tích của các số tự nhiên từ 1 đến N

uses crt;

var i,n,s,t: integer;

begin

clrscr;

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

i:=1; t:=1;

while i<=n do

begin

inc(s,i);

t:=t*i;

inc(i);

end;

writeln('tong la: ',s);

write('tich la: ',t);

readln;

end.

2. Viết chương trình nhập vào số N nguyên dương, đếm xem có bao nhiêu sô chia hết cho 2 và 5 từ 1->N.

uses crt;

var n,i,s: integer;

begin

clrscr;

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

i:=1;

while i<=n do

begin

if (i mod 2 = 0) and (i mod 5 = 0) then inc(s);

inc(i);

end;

write('co ',s,' so chia het cho ca 2 va 5 tu 1 den ',n);

readln;

end.

3. Viết chương tình nhập vào 2 số M,N nguyên dương( 0<M<N). Hãy in ra màn hình các số là ước của 1000 từ M đến N.

uses crt;

var i,n,m: integer;

begin

clrscr;

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

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

i:=m;

write('cac so la uoc cua 1000 tu ',m,' toi ',n,' la: ');

while (m<=i) and (i<=n) do

begin

if 1000 mod i = 0 then write(i:4);

inc(i);

end;

readln;

end.