K
Khách

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.

23 tháng 7 2016

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

23 tháng 7 2016

Bằng nhau vì 1kg=1kg

3 tháng 3 2022

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.

1 tháng 3 2021

Cảm ơn bạn rất nhiều vì đã trả lời câu hỏi của tôi!haha

4 tháng 1 2016

10 em                  ****cho mik nha

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.

4 tháng 9 2019

Đá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