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)

luyenmom88

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 11 xem

1 trả lời

Thích Trả lời

ngobac84

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.

Vote (0) Phản hồi (0) 2 năm trước

hathihay

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cho 𝑥,𝑦,𝑧 là các số dương thay đổi thỏa mãn 𝑥+𝑦+𝑧=3. Tìm giá trị nhỏ nhất của biểu thức 𝑇=𝑥^5+𝑦^5+𝑧^5+1/𝑥+1/𝑦+1/𝑧

bình thường nước tiểu không có protein hoặc rất ít, nếu đi xét nghiệm thấy có rất nhiều protein thì có nghĩ cơ thể đang có bệnh. Bằng những hiểu biết về sự bài tiết trong cơ thể, hãy nêu cơ sở của việc đưa ra kết luận trên?

vẽ đậu mầm Phần chính: Tìm cho mik mấy avatar đôi bn thân nữ nhá Đẹp vào đó

Giúp mk vớiiii Nhanh nhất mk vote 5 sao và ctlhn lun😘 Giúp nha, giúp nha!!! Viết ngắn thôi cũng đc

các anh chị giúp em với em cần gấp

Vẽ chữ chữ Giận NL .................................................................

Làm ơn, trả lời hết đề này cho mình nha cám ơn bạn nào trả lời đúng nhất

Phân biệt dinh dưỡng tự dưỡng vs dinh dưỡng dị dưỡng

Làm hết giúp em nhé hứa vote 5sao ạ

tìm tất cả các số nguyên x sao cho : 2xx+x-2 chia hết cho xx +1

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến