Viết chương trình nhập vào số nguyên n. In ra màn hình các số chia hết cho 5 trong khoảng từ 1 đến n. Sử dụng For…to…do

0 bình luận về “Viết chương trình nhập vào số nguyên n. In ra màn hình các số chia hết cho 5 trong khoảng từ 1 đến n. Sử dụng For…to…do”

1. var
           n,i,kq: integer;
           begin
                   readln (n);
                   for i:= 1 to n do
                           if i mod 5 = 0 then writeln (i);
                   readln;
           end.

   Bình luận

2. program oken;

   uses crt;

   Var n,i;integer;

   Begin

   Clrscr;

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

   for i:=1 to n do 

        if i mod 5 = 0 then

                write(i:2,’ ‘);

   readln;

   end.

   Bình luận