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
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
By Raelynn
By Raelynn
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
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.
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.