Một ký bông một ký sắt . Hỏi ký nào nặng hơn ?
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.
tk
uses crt;
var st1:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st1);
d:=length(st1);
for i:=1 to d do
if (st1[i]='a') and (st1[i+1]='b') and (st1[i+2]='c') then delete(st1,i,3);
writeln(st1);
readln;
end.
uses crt;
var st1:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st1);
d:=length(st1);
for i:=1 to d do
if (st1[i]='a') and (st1[i+1]='b') and (st1[i+2]='c') then delete(st1,i,3);
writeln(st1);
readln;
end.
uses crt;
var st:string[30];
i,d,dem,dem1:integer;
ktu:char;
begin
clrscr;
write('Nhap cau:'); readln(st);
d:=length(st);
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[length(st)]=#32 do
begin
delete(st,length(st),1);
end;
for i:=1 to length(st) do
if (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
dem:=0;
for i:=1 to length(st) do
if st[i]=#32 then inc(dem);
writeln('So tu trong cau la: ',dem-1);
write('Nhap ki tu:'); readln(ktu);
dem1:=0;
for i:=1 to length(st) do
if (st[i]=#32) and (st[i+1]=ktu) then inc(dem1);
writeln('Trong cau co ',dem1,' tu bat dau bang ki tu ',ktu);
readln;
end.
Đáp án B
Gọi A là biến cố “học sinh đăng ký Toán”
Gọi B là biến cố “học sinh đăng ký Lý”
A ∩ B “học sinh đăng ký Toán, Lý”
A ∪ B là biến cố “học sinh có đăng ký học phụ đạo”
P ( A ∪ B ) = P ( A ) + P ( B ) - P ( A ∩ B ) = 38 50 + 30 50 - 25 50 = 43 50
A ∪ B là biến cố “học sinh không đăng ký môn nào cả”
P A ∪ B = 1 - Q A ∪ B = 8 50 = 0 , 14
Bằng nhau e ạk, chị cx đã từng đc hỏi và chuỵ trả lời sắt nặng hơn thì anh của chị ns:
Đồ ngu, = nhau đấy
Bằng nhau vì 1kg=1kg