uses crt;
var a,b,t,i:longint;
begin
clrscr;
   write('a,b= ');readln(a,b);
   //Ting tong cac so le:
   for i:=a to b do if i mod 2=1 then inc(t,i);
   writeln('Tong cac so le: ',t);
   //Toi gian phan so:
   for i:=1 to a do if (a mod i=0)and(b mod i=0) then t:=i;
   writeln(a div t,'/',b div t);
readln
end.

Program So_nguyen_duong;

uses crt;

var a,b,i,j,sum: integer;

X: array [1..100] of integer;

Begin

clrscr;

repeat

write('Nhap so A='); readln(a);

write('Nhap so B='); readln(b);

until (a<b);< p=""></b);<>

j:=0; sum:=0;

for i:=a to b do

if i mod 2<>0 then

begin

inc(j);

x[j]:=i;

end

else sum:=sum+i;

writeln('Tong cua so chan tu ',a,' den ',b,' la: ',Sum);

write('Cac so le tu ',a,' den ',b,' la: ');

for i:=1 to j do

write(x[i],' ');

readln

End.

HAY NHẤT+5 SAO+ CTLHN