Tin học tin học 11_pascal_mảng

[Bùi Việt Hưng]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

ai giúp em bài này với ạ. cho một dãy số N. đưa ra mảng a gồm các số hoàn hảo. mảng B gồm các số không hoàn hảo.em cảm ơn ạ

 

[Như Ngọc_HD]

ai giúp em bài này với ạ. cho một dãy số N. đưa ra mảng a gồm các số hoàn hảo. mảng B gồm các số không hoàn hảo.em cảm ơn ạ

số hoàn hào và không hoàn hảo? bạn có thể định nghĩa giúp mình không?

 

[ka1412]

Của bn đây:

uses crt;
var a,b,k:array[1..100] of integer;
n,i,j,m:integer;
function sohoanhao(q:integer):boolean;
var s,w:integer;
begin
    s     := 0;
    for w := 1 to q-1 do if q mod w=0 then s:=s+w;
    if s=q then sohoanhao:=true else sohoanhao:=false;
end;
begin
    write('Nhap n:');readln(n);
    for i := 1 to n do begin write('Nhap so thu ',i,':');readln(k[i]);end;
    for i:=1 to n do
        if sohoanhao(k[i])=true then
        begin
        inc(j);
        a[j]:=k[i];
        end
        else begin
        inc(m);
        b[m]:=k[i];
        end;
    writeln('Mang a:');
    for i := 1 to j do write(a[i],#32);
    writeln;
    writeln('Mang b:');
    for i := 1 to m do write(b[i],#32);
    readln
end.

 

[son_gohan]

Của bn đây:

uses crt;
var a,b,k:array[1..100] of integer;
n,i,j,m:integer;
function sohoanhao(q:integer):boolean;
var s,w:integer;
begin
    s     := 0;
    for w := 1 to q-1 do if q mod w=0 then s:=s+w;
    if s=q then sohoanhao:=true else sohoanhao:=false;
end;
begin
    write('Nhap n:');readln(n);
    for i := 1 to n do begin write('Nhap so thu ',i,':');readln(k[i]);end;
    for i:=1 to n do
        if sohoanhao(k[i])=true then
        begin
        inc(j);
        a[j]:=k[i];
        end
        else begin
        inc(m);
        b[m]:=k[i];
        end;
    writeln('Mang a:');
    for i := 1 to j do write(a[i],#32);
    writeln;
    writeln('Mang b:');
    for i := 1 to m do write(b[i],#32);
    readln
end.

Nhanh quá

 

[Nguyễn Tùng Ân]

Của bn đây:

uses crt;
var a,b,k:array[1..100] of integer;
n,i,j,m:integer;
function sohoanhao(q:integer):boolean;
var s,w:integer;
begin
    s     := 0;
    for w := 1 to q-1 do if q mod w=0 then s:=s+w;
    if s=q then sohoanhao:=true else sohoanhao:=false;
end;
begin
    write('Nhap n:');readln(n);
    for i := 1 to n do begin write('Nhap so thu ',i,':');readln(k[i]);end;
    for i:=1 to n do
        if sohoanhao(k[i])=true then
        begin
        inc(j);
        a[j]:=k[i];
        end
        else begin
        inc(m);
        b[m]:=k[i];
        end;
    writeln('Mang a:');
    for i := 1 to j do write(a[i],#32);
    writeln;
    writeln('Mang b:');
    for i := 1 to m do write(b[i],#32);
    readln
end.

ghi nhanh mà đúng nữa, phục bạn luôn

 

[ka1412]

ghi nhanh mà đúng nữa, phục bạn luôn

Nhanh quá

Nhanh gì?

 

[Nguyễn Tùng Ân]

Nhanh gì?

đánh máy nhanh đó

 

[ka1412]

Sao lại nhanh? Không hiểu lắm

 

[Tạ Đặng Vĩnh Phúc]

số hoàn hào và không hoàn hảo? bạn có thể định nghĩa giúp mình không?

Thôi thì số hoàn hảo là những số mà tổng các ước dương nhỏ hơn nó bằng chính nó )))

 

[son_gohan]

Nhanh gì?

Bạn @ka1412 luôn trả lời rất nhanh, viết code cũng cực nhanh

 

[ka1412]

Bạn @ka1412 luôn trả lời rất nhanh, viết code cũng cực nhanh

Mình thấy cũng bình thường thôi mà, có j nhanh đâu