viết chương trình in ra màn hình các số tự nhiên chẵn nhỏ hơn hoặc bằng 100 15/07/2021 Bởi Maya viết chương trình in ra màn hình các số tự nhiên chẵn nhỏ hơn hoặc bằng 100
*Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng 100: Program Tim_so_chan; uses crt; var i,n:integer; Begin clrscr; Write(‘Nhap so n: ‘); Readln(n); For i:=1 to 100 do If i mod 2=0 then Write(‘Cac so chan nho hon hoac bang 100 la: ‘,i); Readln End. *Viết chương trình in ra màn hình các số nhỏ hơn hoặc bằng 100 Program Tim_so_le; uses crt; var i,n:integer; Begin clrscr; Write(‘Nhap so n: ‘); Readln(n); For i:=1 to 100 do If i mod 2<>0 then Write(‘Cac so le nho hon hoac bang 100 la: ‘,i); Readln End. chúc bạn học tốt xin ctlhn Bình luận
Program Tim_so_chan; uses crt; var i,n:integer; Begin clrscr; Write(‘Nhap so n: ‘); Readln(n); For i:=1 to 100 do If i mod 2=0 then Write(‘Cac so chan nho hon hoac bang 100 la: ‘,i); Readln End. Bình luận
*Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng 100:
Program Tim_so_chan;
uses crt;
var i,n:integer;
Begin
clrscr;
Write(‘Nhap so n: ‘); Readln(n);
For i:=1 to 100 do
If i mod 2=0 then Write(‘Cac so chan nho hon hoac bang 100 la: ‘,i);
Readln
End.
*Viết chương trình in ra màn hình các số nhỏ hơn hoặc bằng 100
Program Tim_so_le;
uses crt;
var i,n:integer;
Begin
clrscr;
Write(‘Nhap so n: ‘); Readln(n);
For i:=1 to 100 do
If i mod 2<>0 then Write(‘Cac so le nho hon hoac bang 100 la: ‘,i);
Readln
End.
chúc bạn học tốt
xin ctlhn
Program Tim_so_chan;
uses crt;
var i,n:integer;
Begin
clrscr;
Write(‘Nhap so n: ‘); Readln(n);
For i:=1 to 100 do
If i mod 2=0 then Write(‘Cac so chan nho hon hoac bang 100 la: ‘,i);
Readln
End.