câu 1: Cho 1 số nguyên n
- Hãy tính tổng các số từ 1 đến N
- Hãy tính tổng các số chẵn từ 2 đến N
câu 2: Cho 2 số nguyên a và b:
- Tìm Bôi chung nhỏ nhất của a và b
câu 3: Cho 2 số nguyên p và q (p<q). Hãy in ra màn hình các số nguyên tố trong khoảng p và q. Hãy cho biết có bao nhiêu số nguyên tố?
GIÚP MÌNH VỚI MÍ BẠN ƠI:(((((
Câu 1:
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n do
begin
t1:=t1+i;
if i mod 2=0 then t2:=t2+i;
end;
writeln('Tong cac so tu 1 den ',n,' la: ',t1);
writeln('Tong cac so chan tu 1 den ',n,' la: ',t2);
readln;
end.
Câu 2:
uses crt;
var a,b,i,bcnn:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
Câu 3:
uses crt;
var p,q,i,j,kt,dem:integer;
begin
clrscr;
write('Nhap p='); readln(p);
write('Nhap q='); readln(q);
dem:=0;
for i:=p to q do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
write(i:4);
inc(dem);
end;
end;
writeln;
writeln('Co ',dem,' so nguyen to');
readln;
end.
