Viết chương trình nhập số nguyên dương N (N<200) Đếm và đưa ra màn hình những số chia hết cho 5 trong phạm vi từ 1 đến N

0 bình luận về “Viết chương trình nhập số nguyên dương N (N<200) Đếm và đưa ra màn hình những số chia hết cho 5 trong phạm vi từ 1 đến N”

1. Program NN;
   Uses crt;
   Var n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
                   If i mod 5 = 0 then inc(d);
           Write(d);
           Readln
   End.

   Bình luận