Question

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 

Answer 1

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;

Answer 2