Viết chương trình pascal Nhập 1 sô nguyên dương N. Hãy đếm xem từ 1 đến N có bao nhiêu số a. Là bội của 3 và 5 b. Là ước của 2020 b. Chia hết cho 4 hoặc 5

693249407925447

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 34 xem

1 trả lời

Thích Trả lời

pamoon958

uses crt;
var n,i,boi,uoc,ch:integer;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
if i mod 3=0 then boi:=boi+1;
if i mod 5=0 then boi:=boi+1;
if 2020 mod i=0 then uoc:=uoc+1;
if (i mod 4=0) or (i mod 5=0) then ch:=ch+1;
end;
writeln('a: ',boi);
writeln('b: ',uoc);
writeln('c: ',ch);
readln
end.

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

gamaimacde

uses crt;

var i, N, a1, a2, a3 : integer;

begin

clrscr;

write('Nhap so N : '); readln(N);

a1 := 0; a2 := 0; a3 := 0;

for i := 1 to N do begin

if (i mod 3 = 0) and (i mod 5 = 0) then a1 := a1 + 1;

if 2020 mod i = 0 then a2 := a2 + 1;

if (i mod 4 = 0) or (i mod 5 = 0) then a3 := a3 + 1;

end;

writeln('Co ', a1 ,' so la boi cua 3 va 5');

writeln('Co ', a2 ,' so la uoc cua 2020');

writeln('Co ', a3 ,' so chia het cho 4 hoac 5');

readln

end.

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

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

Câu 1: Tìm các hiện tượng chơi chữ trong các VD sau và cho biết chúng thuộc lối chơi chữ nào ? a) Bò lang chạy vào làng bo b) Trăng bao nhiêu tuổi trăng già Núi bao nhiêu tuổi gọi là núi non c) Con kiến bò trên đĩa thịt bò Câu 2: Xác định, gọi tên và nêu rõ tác dụng biểu cảm của điệp ngữ trong các câu sau a) Ta hiểu miền Nam thương nhớ Bác Nóng lòng mong đợi Bác vào thăm Ta hiểu đêm nằm nghe gió lắc Bác thường trăn trở nhớ miền Nam b) Người ta thì ước nhiều chồng Riêng tôi chỉ ước một ông thật bền Thật bền như tượng đồng đen Trăm năm, quyết với tình em một lòng. c) Con kiến mà leo cành đa, Leo phải cành cụt leo ra leo vào. Con kiến mà leo cành đào, Leo phải cành cụt leo vào leo ra. d) Cảm ơn bà biếu gói cam Nhận thì không đúng, từ làm sao đây? Ăn quả nhớ kẻ trồng cây Phải chăng khổ tận đến ngày cam lai? Giụp mik vs ạ mik sẽ vote và cảm ơn đầy đủ Nhìn như vậy nhưng ko dài đâu ạ

Tìm hiểu các nguyên nhân khiến nhà Trần sụp đổ.Minh họa bằng các nhân vật nhà Trần

Âm truyền được qua môi trường nào và ko truyền được qua môi trường nào ? So sánh vận tốc trường âm trong các môi trường.

tìm stn n nhỏ nhất n chia cho 3,4,5 có số dư lần lượt là 1,3,4 n chia cho 8 dư 6,chia cho 12 dư 10,chia cho 15 dư 13 và chia hết cho 23 giúppppppppppppppppppppppppppppppppppppppppppp

2x+8 chia hết 2x+1 Giúp mình đi

Cho tam giác ABC vuông tại A , 1, Cho góc B = 50 độ , tính Góc C 2/ Trên tia đối của tia CA lấy D sao cho D là trung điểm của AD . Qua D kẻ đường thẳng vuông góc với AD cắt BC tại E a) Chứng minh CB = CE b) Qua C kẻ đường thẳng vuông góc với BE cắt ED tại I. Chứng minh: BI = AB + DI

B1: 234×5+234×6+234×8+234 B2: Một hình vuông có chu vi bằng chu vi hình chữ nhật có chiều dài 28 cm, chiều rộng 22 cm . Tính hình vuông đó là: A.616cm2. B100cm2. C.625cm2. D25cm2.

Chép mạng cũng dc nhưng tóm hộ em cái: 1) Tại sao CNH lại gắn liền với HĐH, Việt Nam bắt đầu CNH - HĐH khi nào? 2) CNH - HĐH LÀ GÌ ? CÔ KÊU LÀ ĐỊNH NGHĨA SẼ KHÁC NHAU KHI CÓ DẤU GẠCH NGANG NHƯNG KO BIẾT TÌM CHỖ NÀO 3) Một số ví dụ cụ thể về quá trình trên trong thực tiễn

câu 1 nhà lý đã làm gì để củng cố câu 2 em hãy nêu nguyên nhân thắng lợi của 3 lần kháng chiến chống mông - nguyên của quân nhà trần câu 3 cách đánh giặc của nhà trần trong kháng lần thứ 3 chống mông nguyên có gì giống nhau và khác so với hai lần trước ? câu 4 ý nghĩa 3 lần kháng chiến chống mông nguyên tự luận nha mai em thi rồi

Chán quá mik nghĩ là crush mik hk thik mik :<< (thật ra mik vs crush có hồi đụng tay nhau ở nhà xe nhưng mik hú hồn quá đá thẳng vô ấy crush :<< ) Nên vẽ chibi bị điểm kém :(( hoặc khóc thất tình :)) *Ai đó cho mik 1 cái nhận xét tranh mik tự vẽ :<<*

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