Câu 7. Hãy sửa lại chương trình ở Ví dụ 5 để tính tổng các số tự nhiên chia hết cho 3 không vượt quá N cho trước

Lời giải :

program Tinh_tong;

var     N,i:integer;

S:longint;

begin

write('Nhap so N = ');

readln(N);

S:= 0;

for i:= 1 to N do

if (i mod 3 = 0) then

begin

S:= S+i;

end;

writeln('Tong cua', N, 'so tư nhien dau tien S = ', S);

readln;

end.