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
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.