1/ vct nhập vào 3 số a, b, n (a<=n<=b). tính tổng các số trong khoảng a, b chia hết cho n. 2/ vct tính tổng các số từ 1 đến n (a,b<=n) chia hết cho a và b

1/

Uses Crt;
var n,a,b,i,t: longint;
begin
    clrscr;
    write('Nhap a: '); readln(a);
    write('Nhap b: '); readln(b);
    write('Nhap n: '); readln(n);
    t:= 0;
    For i:= a to b do
        If i mod n = 0 then t:= t + i;
    writeln('Tong la: ',t);
end.

2.

Uses Crt;
var n,a,b,i,t: longint;
begin
    clrscr;
    write('Nhap a: '); readln(a);
    write('Nhap b: '); readln(b);
    write('Nhap n: '); readln(n);
    t:= 0;
    For i:= 1 to n do
        If (i mod a = 0) and (i mod b = 0) then t:= t + i;
    writeln('Tong la: ',t);
end.