Viết chương trình : -Nhập vào số nguyên N . - Tính tổng các số chia hết cho 3 từ 1 đến N và xuất ra màn hình . - Thực hiện biến đếm xem có bao nhieu số chia hết cho 3 từ 1 đến N và xuất kết quả ra màn hình

Program Hotboy;

Uses crt;

Var i,n,dem,s : integer;

Begin

Clrscr;

Dem:=0;s:=0;

Write('nhap so nguyen N'); readln(n);

For i:=1 to n do 

begin

If i mod 3= 0 then dem:=dem+1;

end;

for i:=1 to n do

begin

if i mod 3= 0 then S:=s+i;

end;

Writeln('tong cac so tu 1 den N chia het cho 3 la',S);

writeln(' so cac so chia het cho ba la',dem);

Readln

End.

program hotrotinhoc;

var n,i.d: integer;

t: longint;

begin

readln(n);

t:=0; d:=0;

for i:=1 to n do

if i mod 3=0 then t:=t+i;

writeln('Tong cac so chia het cho 3 tu 1 den n la:',t);

for i:=1 to n do

if i mod 3=0 then inc(d);

write('Co ',d,' so chia het cho 3 tu 1 den N');

readln

end.