Bài 1:
uses crt;
var i:byte;
BEGIN
clrscr;
writeln('Cac so tu 1 den 50:');
for i:=1 to 50 do
begin
write(i,' ');
if i mod 10=0 then writeln
end;
readln
END.
Bài 2:
uses crt;
var i:byte;
BEGIN
clrscr;
write('Cac so tu 50 den 1:');
for i:=50 downto 1 do
begin
if i mod 10=0 then writeln;
write(i,' ');
end;
readln
END.
Bài 3:
uses crt;
var i,n,s:integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then inc(s,i);
write('Tong cac so le tu 1 den n la:',s);
readln
END.
Bài 4:
uses crt;
var i,n,s:integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then inc(s,i);
write('Tong cac so chan tu 1 den n la:',s);
readln
END.
Cho mik xin câu trả lời hay nhất.
Chúc bạn học tốt.
