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.
Câu 1: C
Câu 2: D
Câu 3: A
Câu 4: B
Câu 5: D
Câu 6: C.
==" trình bày phải giông mẫu đó ak
còn vt để máy tính hiểu và thực hiện đc nhớ na ná trong scahs có mà
Nguyễn Hải Dương câu 1 đâu có trong sách đâu tui tìm rùi mà.
còn câu 2 viết CT sao cho khi in ra màn hình có 1 danh thiếp đơn giản như mẫu đã cho ấy.
Ráng giúp mk đi, đây là đề kiểm tra 1 tiết vô cùng quan trọng ấy
program amduong;
var n:int64;
begin
readln(n);
if n<0 then write('am') else if n>0 then write('duong') else write('khong phai so am cung khong phai so duong');
readln;
end.
program diem;
var st,s:ansistring;i,j:longint;n:real;
begin
readln(st);
for i:=1 to length(st) do if st[i] in ['0'..'9'] then
begin
for j:=i to length(st) do s:=s+st[j];
val(s,n);
if n>5 then write('dau') else write('rot');
break;
end;
readln;
end.
Const
maxM =1000;
Var
n, m, i, j, x, y :integer;
A, B :ansistring;
F :Array[0..1 ,0..maxM] of ansiString;
function Max(Ax, Bx :ansiString) :ansiString;
var
T1,T2 :ansistring;
begin
if (Ax = '') then Exit(Bx);
if (Bx = '') then Exit(Ax);
T1:=Ax;
T2:=Bx;
while (Length(T1) < Length(T2)) do
T1:='0'+T1;
while (Length(T2) < Length(T1)) do
T2:='0'+T2;
if (T1>T2) then
Exit(Ax)
else
Exit(Bx);
end;
Begin
{$ifndef ONLINE_JUDGE}
assign(input,'dp.inp');reset(input);
assign(output,'dp.out');rewrite(output);
{$endif}
ReadLn(A);
n:=Length(A);
ReadLn(B);
m:=Length(B);
x:=0;
y:=1;
for i:=1 to n do
begin
for j:=1 to m do
if (A[i]=B[j]) then
F[y,j]:=F[x,j-1]+B[j]
else
F[y,j]:=Max(F[y,j-1],F[x,j]);
x:=1-x; y:=1-y;
end;
if length(f[x,m])=0 then
begin
writeln(0);
write('LCS MAX NUMBER is NULL');
exit;
end;
while (F[x,m,1]='0') and (Length(F[x,m])>1) do
Delete(F[x,m],1,1);
writeln(length(f[x,m]));
if length(f[x,m])=0 then
write('LCS MAX NUMBER is NULL')
else
Write('LCS MAX NUMBER is ',F[x,m]);
End.