Question

viết CT in ra màn hình các số chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1 đến n. Biết n nhập từ bàn phím và là số nguyên dương

Answer 1

uses crt;

var n,i,dem:integer;

begin

clrscr;

repeat

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

until n>0;

dem:=0;

for i:=1 to n do

if i mod 3=0 then

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln('Trong pham vi tu 1 toi ',n,' co ',dem,' so chia het cho 3');

readln;

end.