Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;- các số chia hết cho 3 từ 1 đến n- có bao nhiêu số chia hết cho 3- tổng các số đóvd : nhập n = 20. in ra - các số chia hết cho 3 : 3 6 9 12 15 18- có 6 số chia hết cho 3- tổng là ; 63Em cần gấp giúp...
Đọc tiếp
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;
- các số chia hết cho 3 từ 1 đến n
- có bao nhiêu số chia hết cho 3
- tổng các số đó
vd : nhập n = 20. in ra
- các số chia hết cho 3 : 3 6 9 12 15 18
- có 6 số chia hết cho 3
- tổng là ; 63
Em cần gấp giúp ẹm 
uses crt;
var i,n,d:longint;
begin
d:=0;
writeln('nhapn=');read(n);
for i:=1 to n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+i;
end;
writeln('tong=',d);
readln;
end;