Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Khánh Toàn

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 :<<

Nguyễn Lê Phước Thịnh
11 tháng 5 2020 lúc 22:00

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.

Nguyễn Minh Lệ
11 tháng 5 2020 lúc 21:38

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


Các câu hỏi tương tự
Yna Lolipop
Xem chi tiết
Gia Kỳ
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Trần Đức Huy
Xem chi tiết
thanh mai
Xem chi tiết
Huyền Trang Trang
Xem chi tiết
Thanh
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Maiiii
Xem chi tiết