1) in ra màn hình các số từ 1-50 .
2) in ra màn hình các số từ 50-1.
3) tính tổng các số tự nhiên lẻ nhỏ hơn hoặc = n, n nhập từ bàn phím .
4) tính tổng các số tự nhiên chẵn nhỏ hơn hoặc bằng n .với n nhập từ bàn phím.
1) in ra màn hình các số từ 1-50 . 2) in ra màn hình các số từ 50-1. 3) tính tổng các số tự nhiên lẻ nhỏ hơn hoặc = n, n nhập từ bàn phím . 4) tính tổ
By Amara
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.
1+2)
program phuongt;
uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 50 do write(i:4);
writeln(”);
for i:=50 downto 1 do write(i:4);
readln
end.
3+4)
program phuongt;
uses crt;
var n, sl, sc, i: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
sl:=0; sc:=0;
for i:=1 do n to if i mod 2 = 0 then sc:=sc+i else sl:=sl+i;
writeln(‘Tong le: ‘, sl);
write(‘Tong chan: ‘, sc);
readln
end.