Bài 7 - Câu 7 trang 60 SGK Tin học 8

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 :

PHP:

1. program Tinh_tong;
2. var   N,i:integer;
3.   S:longint;
4. begin
5.   write('Nhap so N = ');
6.   readln(N);
7.   S:= 0;
8.   for i:= 1 to N do                  
9.           if (i mod 3 = 0) then              
10.                 begin
11.   S:= S+i;
12.                end;
13.   writeln('Tong cua', N, 'so tư nhien dau tien S = ', S);
14.   readln;
15. end.