Question

[Min:))]

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:(((((

Answer 1

[Nguyễn Lê Phước Thịnh]

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.

Answer 2

[Nguyễn Lê Phước Thịnh]

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.