Câu1:Viết chương trình nhập một dãy sốtối đa 100 số, sau đó sắp xếp lại theo thứtự
tăng dần .
Câu2:Viết chương trình nhập n sốnguyên. Đếm các sốvừa chia hết cho 2 vừa chia
hết 3. Xuất kết quảra màn hình.
Câu3:Viết chương trình tính tích của 10 sốtựnhiên đầu tiên.
{ Dùng2 cáchwhile......do…..và for ...do...}
giúp me với cần gấp :<<
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
