em hãy viết chương trình in ra ngoài màn hình tất cả các chữ số có 3 chữ số chia hết cho 5? dùng lệnh for do nha

0 bình luận về “em hãy viết chương trình in ra ngoài màn hình tất cả các chữ số có 3 chữ số chia hết cho 5? dùng lệnh for do nha”

1. Program hienthi;

   Uses crt;

   Var i:integer;

   begin

   clrscr;

   Writeln(‘cac so co ba chu so chia het cho 5 la: ‘);

   For i:=100 to 999 do if i mod 5=0 then write(i:5);

   readln;

   end.

   Bình luận

2. Program chiahet;

   Uses crt;

   Var i:integer;

   Begin

   Clrscr;

   Write(‘Cac so co 3 chu so chia het cho 5 la: ‘);

   For i:=100 to 999 do 

    If i mod 5 = 0 then write(i,’ ‘);

   readln;

   End.

   Bình luận