In ra màn hình các số lẻ từ 1 --> 10 ở dạng lặp tiến, dạng lặp lùi và vòng lặp chưa biết trước (do giáo viên yêu cầu viết ra giấy nên em mong mọi người giải ra giấy giúp em ạ, em vote 5 sao luôn)
1 câu trả lời
*program ct; ( dạng tiến)
uses crt;
var i, n :integer;
begin
write('nhap n:'); readln(n);
for i:=1 to n do
if (i mod 2 = 1) then
begin
writeln('cac so le la:',i);
readln;
end.
dạng lùi)
* program ct;
uses crt;
var n, i:integer;
begin
write('nhap n='); readln(n);
for i:=n downto 1 do
if i mod 2=1 then
writeln('so le la:',i);
readln;
end.
(chưa biết trước)
*program ct;
uses crt;
var n, i : integer;
begin
write('nhap n='); readln(n);
while i<n do
begin
if i mod 2=1 then
writeln('so le la:',i);
i:=i+1;
end;
readln;
end.
