câu 1:

Var a, b: real;

Begin

Clrscr;

Write(‘nhap a=’), read(a);

Write(‘nhap b=’); read(b);

If a+b = 120 then a:=120-b;

Readln

End.

câu 2: 

s = 63

x=10

y=35

uses crt;
var a:array[1..100]of longint;
i,n,t,t1,tam,j:integer;
s,s1:int64;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until a[i]>=0;
end;
writeln('Mang A=');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong gia tri cua mang A la: ',t);
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac gia tri cua mang A la: ',s);
t1:=0;
for i:=1 to n do
if i mod 2=0 then t1:=t1+a[i];
writeln('Tong cac gia tri o vi tri chan la: ',t1);
s1:=1;
for i:=1 to n do
if i mod 2<>0 then s1:=s1*a[i];
writeln('Tich cac gia tri o vi tri le la: ',s1);
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;
writeln('Mang A sau khi sap xep la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac phan tu co gia tri lon hon 10 la: ');
for i:=1 to n do
if a[i]>10 then write(a[i]:4);
readln;
end.

uses crt;

var a:array[1..300]of integer;

i,n,dem,kt,t: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 3=0 then inc(dem);

t:=abs(a[2]-a[1]);

kt:=0;

for i:=1 to n do 

if t<>abs(a[i]-a[i-1]) then 

begin

kt:=1;

break;

end;

if kt=0 then writeln('Day la cap so cong')

else writeln('Day khong la cap so cong');

readln;

end.

Mạch bổ sung:

\(-T-X-X-G-G-G-A-A-T-G-X-A-T-X-G-G-\)

- T - X - X - G - G - G - A - A - T - G - X - A - T - X - G - G

- T - X - X - G - G - G - A - A - T - G - X - A - T - X - G - G

cần gấp ạ

a/ 7 vòng lặp

b/ biến bằng 1,2,3,4,5,6,7

Chúng ta đang sống trong Thế kỉ XXI – thế kỉ của sự văn minh, tiến bộ vượt bậc của loài người , thế kỉ của công nghiệp hóa – hiện dại hóa. Chúng ta cũng dần hòa nhập với những bôn ba, phù hoa của thế giới ngày nay. Bên cạnh đó. Để hình thành nên những mối quan hệ tốt đẹp, ta còn cần phải biết tạo cho ta một lối sống nền nếp. Vậy để có thể tạo nên lối sống ấy, ta cần phài làm gì? Đó là ta phải nghêm túc chấp hành những nội, những luật lệ được đặt ra ngay khi còn bé.Xã hội là một thể thống nhất, trong xã hội những gia đình là những thành phần nhỏ hình thành nên xã hội đó, vậy những gia đình ấy tốt hay xấu đều có ảnh hưởng đến bộ mặt của xã hội nói chung nhất.Dân gian xưa có câu: “Dạy con tử thưở còn thơ “ Quả không sai, muốn tập cho mình một lối sống có nề nếp, ta cần tập từ nhỏ. Đối với việc học tập, ta cần chấp hành tốt các các nội quy của nhà trường một cách nghiêm túc. Có người hỏi rằng “nghiêm túc là sao?” Cũng xin thưa “ Nghiêm túc có nghĩa là thực hiện đúng, thực hiện tốt và đủ các nội quy đã được đặt ra. Đó cũng không theo nghĩa là cần thực hiện đúng trước mặt thầy cô rồi sau đó thực hiện trái lại, không tôn trọng nội quy.Tóm lại, muốn có một lối sống nề nếp, muốn là một công dân tốt, muốn là người được mọi người yêu quý, tin tưởng , ngay từ bây giờ ta phải chấp hành nghiêm túc những nội quy mà nhà trường đã đặt ra.Việc chấp hành nghiêm túc những nội quy ấy cũng là hành trang tạo lập cho ta những kĩ năng sống tốt trong đoạn đường dài mai sau. 

hình như là thực hiện vị trí

-U-A-G-X-A-X-U-G-A-X-G-X-