Viết chương trình : nhập nguyên dương N. Tính tổng các số chia hết cho 3 và 5 trong đoạn [1..N] Hộ mk vs ạ

Program baitap;

Uses crt;

Var N,S: integer;

Begin

Clrscr;

Write('N='); Readln(N);

S:=0;

For i:= 1 to N do If (i mod 3=0) and (i mod 5=0) then S:=S+i;

Writeln('Tong cac so chia het cho 3 va 5 trong day:',S);

Readln

End.

program tong;

Uses crt;

Var

                n,i,s:integer;

Begin

             Clrscr;

            Repeat

             write('Nhap N: '); readln(n);

            Until n>0;

             S:=0;

             For i:=1 to n do if (i mod 3=0) and (n mod 5=0) then S:=S+i;

            write('Tong la: ',S);

            Readln;

End.   

#HN

#Chuc_anh/chi_hoc_tot