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 Ncâu 2: Cho 2 số nguyên a và b:- Tìm Bôi chung nhỏ nhất của a và bcâ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...
Đọc tiếp
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.