Program tong_cac_so;

USES CRT;

Var N,i: Integer;

S: longint;

Begin

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

S:=0;

If (N mod 3=0; N mod 5=0) then write (Thoa man tinh tong cua N) else write (Khong thoa man khong tinh tong N);

For i:=1 to N do S:=S+i;

Writeln ('Tong cua ',N,' so chia het cho 3 va 5 S=';S);

Readln

End.

Chúc bn hc tốt^^

CHÚC BẠN HỌC TỐT!!!

Trả lời:

program kaito;

uses crt;

var S, n, i: integer;

begin

   clrscr;

   write('Nhap so cuoi cua day: '); readln(n);

   for i:=1 to n do 

   begin 

      if (i mod 3 = 0) and (i mod 5 = 0) then S:=S+i;

   end;

   writeln('Tong cac so vua chia het cho 3 và 5 trong day la: 'S);

   readln

end.