Bạn bè (0)
Hoạt động gần đây (15)
-
thái Thoa đã đặt câu hỏi: cho e hỏi bt về ancol nhé!!! Cách đây 7 năm
hỗn hợp X gồm ancol metylic và một ancol no đơn chức R.cho 2.76 gam X tác dụng với Na dư thu đc 0.672l H2(dktc).mặt khác õi hóa hoàn toàn 2.76 gam X bằng CuO đun nóng được hỗn hợp anđehit cho toàn bộ lượng anđehit này tác dụng với đ AgNo3 trong NH3 dư thu đc 19.44 kết tủa.ctpt của R là:
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;
-
thái Thoa đã trả lời trong câu hỏi: CHƯƠNG TRÌNH CON VÀ MẢNG Cách đây 7 năm
bài 1:
var f:text;
s:string;
begin
assgin(f,d:\dulieu.txt);rewet(f);
while not eof(f1) do
begin
readln(f,s);
upcase(s[1]);
writeln(s);
end;
end;
bài 2:
var f:text;
s:string;
d,i:integer;
begin
assign(f,d:\dl.txt);reset(f);
d:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to s do
if s[i]='a' then inc(d);
end;