Viết chương trình. - Nhập số nguyên N. - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình. -Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất ra màn hình kết quả cứu đi mn ơi

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.

CHÚC BẠN HỌC TỐT NHA

program abc;

uses crt;

var i, n, s, count: integer;

begin
 s:=1;
 count := 0;
 write('Nhap n'); readln(n);
 for i := 1 to n do if (i mod 4 = 0) then 
 begin
  s:= s * i;
  count:= count + 1;
 end;
 writeln('tich s = ', s);
 writeln('so so chia het cho 4: ', count);
 readln
end.