K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

29 tháng 11 2018

1a

2c

3d

4d

5a

28 tháng 11 2018

chỉnh lại 100% nhé bạn chỗ mình khoanh tròn í

Bảng tính điện tử

27 tháng 11 2018

Đồng ý với bạn Hồng Vì khi ta chèn một cột mới bên trái cột tổng điểm nó sẽ phù hợp hơn

27 tháng 11 2018

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

n,i,j:byte;

tam:longint;

begin

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

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;

write('so lon nhat co the tao ra:');

for i:=1 to n do write(a[i]);

readln;

end.

28 tháng 11 2018

Chưa đúng đâu bạn ơi!

Cái này mới chỉ là sắp xếp theo thứ tự giảm dần thôi. Chứ khi ghép lại rồi chọn số lớn nhất thì chưa đúng

26 tháng 11 2018

rftzdr

27 tháng 11 2018

nếu thế thì phải cho chạy từ 2 bạn ạ

ý tưởng của mình: chỉ cần n chia hết cho 1 trong các số trong vòng lặp thì sẽ lập tức thoát khỏi vòng lặp và ko kiểm tra nữa, còn nếu nó ko chia hết cho số nào thì nó là số nguyên tố

var n,i:longint;

bl:boolean;

begin

bl:=true;

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

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then

begin

bl:=false;

break;

<break là lệnh để thoát ra khỏi vòng lặp khi gặp ước khác 1 của n>

end;

if bl=true then write('la so nguyen to')

else write('khong la so nguyen to');

readln;

end.