0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
34
15
DẠNG TIẾN.
for i:=1 to n do
s:=s+i;
dạng lùi
for i:=n downto 1 do
s:=s+i;
-dạng tiến
for i:=1 to 2*n do
if i mod 2=0 then s:=s+i;
dạng lùi
for i:=n downto 1 do
if i mod 2=0 then s:=s+i;
Hãy giúp mọi người biết câu trả lời này thế nào?
DẠNG TIẾN
Bài 1:
Uses crt;
Var s, n, i: integer;
Begin
Write('Nhap n = '); readln(n);
s:=0;
For i:=1 to n do s:=s+i;
Writeln(S);
Readln
End.
Bài 2:
Uses crt;
Var s, i, n: integer;
Begin
Write('Nhap n = '); readln(n);
s:=0;
For i:=1 to 2*n do if i mod 2 = 0 then s:=s+i;
Writeln(S);
Readln
End.
DẠNG LÙI
Bài 1:
Uses crt;
Var s, i, n: integer;
Begin
Write('Nhap n = '); readln(n);
s:=0;
For i:=n downto 1 do s:=s+i;
Writeln(S);
Readln
End.
Bài 2:
Uses crt;
Var s, i, n: integer;
BEgin
Write('Nhap n = '); readln(n);
s:=0;
For i:=2*n downto 1 do if i mod 2 = 0 then s:=s+i;
Writeln(S);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin