viết chương trình đếm các số chia hết cho từ 3 đến 1 đến N (N>=100) kết quả hiển thị lên màn hình có sử dụng hàm dem(N)
viết chương trình đếm các số chia hết cho từ 3 đến 1 đến N (N>=100) kết quả hiển thị lên màn hình có sử dụng hàm dem(N)
By Arya
By Arya
viết chương trình đếm các số chia hết cho từ 3 đến 1 đến N (N>=100) kết quả hiển thị lên màn hình có sử dụng hàm dem(N)
uses crt;
var n,i,d:longint;
begin
clrscr;
repeat
write(‘Nhap n (n>=100): ‘); readln(n);
if n<100 then writeln(‘NHAP LAI!’);
until n>=100;
d:=0;
for i:=1 to n do if i mod 3=0 then inc(d);
write(‘Co ‘,d,’ so chia het cho 3′);
readln;
end.
program dem_3;
uses crt;
var n:integer;
{—Ham—}
function dem(n:integer):integer;
begin
dem:=0;
for i:=1 to n do
if i mod 3=0 then dem:=dem+1;
end;
{—CT-chinh—}
BEGIN
clrscr;
write(‘Nhap n: ‘); readln(n);
write(‘Co ‘,dem(n),’ so chia het cho 3 tu 1 den ‘,n);
readln;
end.