Question

[dinhnguyentuhuy]

Viết chương trình pascal nhập n. Đếm xem từ 1 đến n có bao nhiêu số chia hết cho 7 Làm giúp với !

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do

if i mod 7=0 then inc(dem);

writeln('Co ',dem,' so chia het cho 7 trong khoang tu 1 toi ',n);

readln;

end.

Answer 2

[dinhnguyentuhuy]

cảm ơn