Tìm kiếm:

Chú cũng thế thôi hơn ai hả Cường. Học chung với tao mà.

Bài 1:
var n,i,tc,tl:integer;
begin
tc:=0;
tl:=0;
write('Nhap n');
readln(n);
for i:=1 to n do
if i mod 2=0 then tc:=tc+i
else tl:=tl+i;

m giới hạn là mấy thế lehang_gb1

var n:string;
begin
write('Nhap so nguyen n ');
readln(n);
writeln('Do dai so nguyen n la ',length(n));
readln;
end.

var cd,cr,i,j:integer;
begin
readln(cd);
readln(cr);
for i:=1 to cr do
for j:=1 to cd do
if (i<>1) and (i<>cr) then
begin
if (j=1) or (j=cd) then write('*')...

Dòng code của bạn chưa nhập n làm sao mà nó chạy được

code của mính là thế này
const
a='tachsum.in';
o='tachsum.out';
type
mang=array [1..100] of integer;
var
n:integer;
h:text;
c:mang;

Dùng integer khi muốn xử lý với số nguyên còn real là để xử lý với số thực

Làm như bạn nhìn code thì thấy ngắn hơn nhưng khi máy chạy lại chạy nhiều hơn code của jackychanh. Code của bạn máy phải chạy for từ 2 đến n cho đến khi n=1 (tức là lăp lại vòng for nhiều lần), biến...

Bài này có vẻ như là tìm bội chung nhỏ nhất của n số t1,t2...tn. vzic còn bài 2 bài 3 gì đó post luôn đi.