VCT pascal nhập vào 1 số n, đếm và in ra màn hình các số chia hết cho 5 nhỏ hơn hoặc bằng n

0 bình luận về “VCT pascal nhập vào 1 số n, đếm và in ra màn hình các số chia hết cho 5 nhỏ hơn hoặc bằng n”

1. uses crt;

   var n,i,d: integer;

   begin

   clrscr;

   write (‘nhap n: ‘);  raedln (n);

   for i:=1 to n do

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

   writeln (‘co ‘,d,’ so chia het cho 5 nho hon hoac bang n’);

   readln;

   end.

   

   Bình luận

2. đây bạn

   

   Bình luận