2. Viết chương trình in ra các số chẵn từ 2 đến 20
HD: nếu n là số chẵn thì: n mod 2 = 0
Vậy dùng lệnh lặp for cho i chạy từ 1 đền 20 nếu i là số chẵn thì write(i,’ ’);
3. Viết chương trình in ra màn hình các số lẻ từ 1 đến 20
HD: nếu n là số lẻ thì: n mod 2 <>0
m.n giúp e vs ạ e hứa sẽ cho 5* và cảm ơn
2.Program Hotboy
Uses crt;
Var S,i : integer ;
Begin
For i:= 2 to 20 do
Begin
If i mod 2= 0 do
Write(i);
End;
Readln
End.
3/ Program Hotboy
Uses crt;
Var S,i : integer ;
Begin
For i:= 2 to 20 do
Begin
If i mod 2<> 0 do
Write(i);
End;
Readln
End.
2.
program Tin_hoc;
uses crt;
var i,tong:integer;
begin
clrscr;
tong:=0;
for i:= 1 to 20 do i mod 2 = 0 then tong:=tong + i;
writeln(‘Tong cac so chan tu 1 den 20 la: ‘,tong);
readln;
end.
3.
program Tin_hoc;
uses crt;
var i,tong:integer;
begin
clrscr;
tong:=0;
for i:= 1 to 20 do i mod 2 = 1 then tong:=tong + i;
writeln(‘Tong cac so chan tu 1 den 20 la: ‘,tong);
readln;
end.