Bài 1: 

uses crt;

var m,n,i,t:integer;

begin

clrscr;

write('Nhap m='); readln(m);

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

t:=0;

for i:=m to n do 

  t:=t+i;

writeln(t);

readln;

end.

2:

uses crt;

var n:integer;

{---------------chuong-trinh-con-kiem-tra-chan-le---------------------}

function ktcl(x:integer):boolean;

begin

if x mod 2=0 then ktcl:=true

else ktcl:=false;

end;

{--------------------chuong-trinh-con-kiem-tra-duong-am-------------------}

fucntion ktda(x:integer):boolean;

begin

if x>0 then ktda:=true

else if x<0 then ktda:=false;

end;

{--------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

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

if ktcl(n)=true then writeln('Day la so chan')

else writeln('Day la so le');

if ktda(n)=true then writeln('Day la so duong')

else writeln('Day la so am');

readln;

end.

A

Phát biểu nào dưới đây sai ?

(0.5 Points)

A. Trong một chương trình, phần khai báo có thể có hoặc không.

B. Trong một chương trình, phần thân chương trình có thể có hoặc không.

C. Trong một chương trình, phần thân chương trình bắt buộc phải có.

D. Cả A và C đều đúng.

D

Program HOC24;

var d,i,k: integer;

a: array[1..1000] of integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap K: '); readln(k);

for i:=1 to k do

begin

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

end;

d:=0;

for i:=1 to k do if nt(a[i]) then d:=d+1;

write('Co ',d,' so nguyen to trong mang A');

readln

end.

a)  Chiều dài gen : L = 18 . 3,4 =  61.,2 (A^o)

b)  Trình tự các nu trên mạch gốc gen : 

     - A-X-G-X-A-X-A-T-X-G-A-G-T-A-X-X-X-T -  (đề sửa C-> X)

chuỗi aa :  - A-X-G-X-A-X-A-U-X-G-A-G-U-A-X-X-X-U -

a)  Chiều dài gen : L = 18 . 3,4 =  61.,2 (A^o)

b)  Trình tự các nu trên mạch gốc gen : 

     - A-X-G-X-A-X-A-T-X-G-A-G-T-A-X-X-X-T -  (đề sửa C-> X)

chuỗi aa :  - A-X-G-X-A-X-A-U-X-G-A-G-U-A-X-X-X-U -

không có một loại thức ăn nào có thể cung cấp các đủ chất cần thiết cho hoạt động sống của cơ thể .Tất cả những chất mà cơ thể cần  đều lấy từ nhiều phải lấy từ nhiều nguồn thức ăn khác nhau. Để có sức khỏe tốt , chúng ta phải ăn phối hợp nhiều loại thức ăn và thường xuyên thay đổi món ăn

lên magj mà hỏi

uses crt;
var a,b,tam:integer;
{------------------------------------------------------}
procedure nhap(var n:integer);
begin
write('nhap mot so nguyen bat ky: '); readln(n);
end;
{--------------------------------------------------------}
procedure doicho(var x,y:integer);
begin
writeln('so a truoc khi thay doi la: ',x);
writeln('so b truoc khi thay doi la: ',y);
begin
tam:=x;
x:=y;
y:=tam;
end;
writeln('so a sau khi thay doi la: ',x);
writeln('so b sau khi thay doi la: ',y);
end;
{---------------------------------------------------------}
begin
clrscr;
nhap(a);
nhap(b);
doicho(a,b);
readln;
end.