Program VD;
Var i,n,d,t: integer;
Begin
Write (' Nhap vao so nguyen N: ');
Readln (N);
T:= 0;
D:= 0;
For i:= 1 to N do 
Begin
If (i mod 3) = 0 then
begin
T:= T +i;
D:= D+ 1;
End;
End;
Writeln('Tong cac so chia het cho 3 tu 1 den', N, ' la:', T);
Writeln (' Tu 1 den N co ', D, ' so chia het cho 3');
readln;
end.
- nếu có gì không hiểu nhắn tin cho mk nha-