khỏi ý 1 nha

program bai1;

var n,s,i:longint;

begin

write('N= ');readln(n);

write('Uoc cua ',n,' la: ');

for i:=1 to n do

if (n mod i=0) then write(i,' ');

s:=0;

for i:=1 to n do

begin

if (n mod i=0) then

if (i mod 2=0) then s:=s+i;

writeln('Tong cac uoc chan la: ',s);

readln

end.

thiếu xuống dòng

thêm ở chỗ if........ then

begin

dem:=0;

write(a*100+b*10+c);

if dem=5 then writeln;

program bai1;

var a,b,c:longint;

begin

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if (((a*100+b*10+c) mod 2=0) and ((a*100+b*10+c) mod 3=0) and ((a*100+b*10+c) mod 5=0)) then write(a*100+b*10+c);

readln

end.

neu cach giai giup minh 

program bai1;

var a,b,c:longint;

begin

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if ((a*100+b*10+c)=(a*a*a+b*b*b+c*c*c) then writeln(a*100+b*10+c);

readln

end.

program bai1;

var a:array[1..100] of longint;

s,i,n:longint;

begin

repeat

write('N= ');readln(n);

until n>0;

for i:=1 to n do

begin

write('A[',i,']= ');readln(a[i]);

if a[1] =0 then exit;

end;

s:=0;

for i:=1 to n do

begin

if a[i]>0 then s:=s+1/a[i];

end;

writeln('Tong la ',s);

readln

end.

thêm vào nhập mảng

if a[1]=0 then exit;

program bai1;

var a:array[1..100] of longint;

s,i,n:longint;

begin

repeat

write('N= ');readln(n);

until n>0;

for i:=1 to n do

begin

write('A[',i,']= ');readln(a[i]);

if a[1] =0 then exit;

end;

s:=0;

for i:=1 to n do

begin

if a[i]>0 then s:=s+1/a[i];

end;

writeln('Tong la ',s);

readln

end.

program bai1;

var a:array[1..100] of longint;

s,i,n:longint;

begin

repeat

write('N= ');readln(n);

until n>0;

for i:=1 to n do

begin

write('A[',i,']= ');readln(a[i]);

end;

s:=0;

for i:=1 to n do

begin

if a[i]>0 then s:=s+1/a[i];

end;

writeln('Tong la ',s);

readln

end.

program bai1;

var n:longint;

begin

write('N= ');readln(n);

while n>5 do

begin

writeln('Moi ban nhap lai gia tri cua n ');

write('N= ');

readln(n);

end;

readln

end.