cảm ơn bạn rất nhiều :))

uses crt;
var n,i,t,kt,j,t1,d,x,y:integer;
st:string;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until n>0;
writeln('Cac so le trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
if i mod 2=1 then write(i:4);
writeln;
writeln('Cac so chan trong khoang tu 2 toi ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4);
writeln;
writeln('Cac so le chia het cho 3 trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
if (i mod 2=1) and (i mod 3=0) then write(i:4);
writeln;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln('Tong cac so le trong khoang tu 1 toi ',n,' la: ',t);
if n>1 then
begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end
else writeln(n,' khong la so nguyen to');
writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
writeln;
str(n,st);
d:=length(st);
t1:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t1:=t1+x;
end;
writeln('Tong cac chu so cua ',n,' la: ',t1);
readln;
end.

P/s: Vì không có số chính phương nào chia hết cho 0 nên chúng ta buộc phải để a[i]<>0

uses crt;
var a:array[1..100]of integer;
n,i,kt:integer;
x:int64;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<>0;
end;
x:=0;
i:=1;
while (x mod a[i]<>0) or (sqrt(x)<>trunc(sqrt(x))) do
begin
x:=x+1;
i:=i+1;
end;
writeln(x);
end.

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..32000] of integer;

function nt(x: longint): boolean;

var j: longint;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while (j<=trunc(sqrt(x))) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap so phan tu can dung : '); readln(n);

t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,' :'); readln(a[i]);

if nt(a[i]) then t:=t+a[i];

end;

write('Tong cac so nguyen to trong day la : ',t);

readln

end.

Program HOC24;

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

i,n,d: integer;

t: longint;

begin

write('Nhap so phan tu can dung : '); readln(n);

d:=0; t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,' :'); readln(a[i]);

if a[i]>5 then

begin

t:=t+a[i];

d:=d+1;

end;

end;

write('Trung binh cong cac phan tu lon hon 5 la : ',t/d:1:2);

readln

end.

Mình cũng không rõ nữa :(
Mình chỉ biết trong 2 bài FOR...DO và WHILE....DO thôi

Tại cô cho mình đề như thế
*For..do là câu lệnh lặp biết trước

While...do là câu lệnh lặp chưa biết trước

Sử dụng câu lện điều kiện If...then nữa

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

i:=1;

while i<=n do

begin

t:=t+i;

inc(i);

end;

writeln(t);

readln;

end.

bạn gì cái là gì vâỵ

Câu 1:

*Cách 1:
uses crt;

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

i,n,tam,j:integer;

begin

clrscr;

repeat

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

until (1<=n) and (n<=100);

for i:=1 to n do

begin

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

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do

write(a[i]:4);

readln;

end.

*Cách 2:

uses crt;
var a:array[1..100]of integer;
n,i,j,tam:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (1<=n) and (n<=100);
i:=1;
while i<=n do
begin
write('A[',i,']='); readln(a[i]);
i:=i+1;
end;
i:=1;
j:=i+1;
while (i<=n-1) and (j<=n) do
begin
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
i:=i+1;
j:=j+1;
end;
i:=1;
while i<=n do
begin
write(a[i]:4);
i:=i+1;
end;
readln;
end.

Câu 2:

*Cách 1:

uses crt;

var n,i,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(dem);

writeln(dem);

readln;

end.

*Cách 2:

uses crt;
var a:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (1<=n) and (n<=100);
i:=1;
while i<=n do
begin
write('A[',i,']='); readln(a[i]);
i:=i+1;
end;
i:=1;
dem:=0;
while i<=n do
begin
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(dem);
i:=i+1;
end;
writeln(dem);
readln;
end.

Câu 3:

*Cách 1:

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=1;

for i:=1 to 10 do

s:=s*i;

writeln(s:0:0);

readln;

end.

*Cách 2:

uses crt;

var i:byte;

s:real;

begin

clrscr;

i:=1;

s:=1;

while i<=10 do

begin

s:=s*i;

inc(i);

end;

writeln(s:0:0);

readln;

end.

Giờ mình bận rồi :<<, tối mai mình giúp bạn nha. Bài thấy làm 2 cách cũng lâu đo

Program HOC24;

var i,n: integer;

t: longint;

begin

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

i:=1; t:=0;

while i<n do

begin

t:=t+i;

i:=i+1;

end;

write('Tong cac so tu 1 den ',n,' la ',t);

readln

end.

Program hotrotinhoc;

var a,b: array[1..6] of integer;

i,j,tg: integer;

begin

a[1]:=3; a[2]:=1; a[3]:=7; a[4]:=9; a[5]:=5;

b[1]:=10; b[2]:=2; b[3]:=8; b[4]:=9; b[5]:=6; b[6]:=5;

for i:=1 to 5 do

for j:=i to 5 do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

write('Day 1 sau khi doi cho la : ');

for i:=1 to 5 do write(a[i],' ');

writeln;

write('Day 2 sau khi doi cho la : ');

for i:=1 to 6 do

for j:=i to 6 do

if b[i]<b[j] then

begin

tg:=b[i];

b[i]:=b[j];

b[j]:=tg;

end;

for i:=1 to n do write(b[i],' ');

readln

end.

uses crt;

var n,t:integer;

begin

clrscr;

t:=0; n:=1;

while t<=1000 do

begin

t:=t+n;

n:=n+1;

end;

writeln(t);

readln;

end.

Bạn ơi cho mik hỏi làm thế này đc ko?

Program bt;

Var n,S:integer;

Begin

Writeln ('nhap n :=');

Readln(n);

S:=0;

n:=0;

White S<=1000 do

Begin

S:=S+n;

n:=n+1;

End;

Writeln ('so n la n:=',n);

Writeln ('tong khong vuot qua 1000:=',S);

Readln;

End.