nhập vào 1 số nguyên N. đếm xem có bao nhiêu số chia hết cho 5 từ 1 đến N

Question

kimlien · Answer

program chiahet_5;

uses crt;

var n,i,d:integer;

begin

clrscr;

write(‘Nhap N: ‘); readln(n);

d:=0;

for i:=1 to n do

if i mod 5=0 then d:=d+1;

write(‘Co ‘,d,’ so chia het cho 5 tu 1 den ‘,n);

readln;

end.

0 bình luận về “nhập vào 1 số nguyên N. đếm xem có bao nhiêu số chia hết cho 5 từ 1 đến N”