số nu của gen là: N=C .20=150 .20=3000 nu

theo NTBS|: A=T=900 nu

G=X= N/2 - A=3000/2 -900=600 nu

chiều dài của gen là: L=N/2 . 3.4 =3000/2 .3.4=5100 angxtorong

Bạn có thể tham khảo nha :P

program bai1;

var i :Integer;

begin

clrscr;

for i:= 9 to 25 do

if((i * 2 + (36 - i) * 4) = 100) then

writeln('So ga la: ', i);

writeln('So cho la: ', 36 - i);

readln;

end.

2.

Program bai2;

uses crt;

var i,n,nhonhat: integer;

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

min: real;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

min:=a[1];

nhonhat:=1;

for i:= 2 to n do

if a[i] < min then

begin

min:=a[i];

nhonhat:=i;

end;

writeln('phan tu nho nhat la phan tu thu ' ,nhonhat);

readln;

end.

{ https://www.facebook.com/profile.php?id=100022887573679 }

1.

Program bai1;

uses crt;

var i,n: integer;

begin

clrscr;

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

i:=1;

while i<=n do

begin

write(i:3,', ');

i:=i+2;

end;

readln;

end.

Program bai1;

uses crt;

var tu,mau: integer;

a,b,r,ucln : integer;

begin

clrscr;

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

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

if mau = 0 then writeln('khong phai la phan so ')

else

begin

write(tu ,' / ' , mau);

a:=tu;

b:=mau;

r:=a mod b;

while r <> 0 do

begin

a:=b;

b:=r;

r:=a mod b ;

end;

ucln:=b;

tu:=tu div ucln;

mau:= mau div ucln;

if mau <> 1 then

write('=' , tu , '/' ,mau)

else write(tu);

end;

readln;

end.