Viết chương trình tính tổng các giá trị là bội của 3 trong phạm vi từ 1 đến

23/23

Viết chương trình tính tổng các giá trị là bội của 3 trong phạm vi từ 1 đến N

(Số nguyên dương N được nhập vào từ bàn phím)

Nhập câu trả lời ở đây

0/3000 ký tự

Giải thích

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

Clrscr;

Writeln(‘nhap n=’);

Readln (n);

Tong:=0;

For i:=1 to n do

If I mod 3 = 0 then Tong:=Tong+i;

Writeln(‘Tong la:’,Tong);

Readln

End.