B i u s x x aT
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.
Những câu hỏi liên quan
NV
Nguyễn Việt Lâm
Giáo viên
11 tháng 8 2020
Không gian mẫu: \(6^6\)
6 lần gieo nhận được 6 mặt khác nhau nên kết quả của mỗi lần là hoán vị của tập {1;2;3;4;5;6} \(\Rightarrow\) có \(6!\) kết quả thuận lợi
Xác suất: \(P=\frac{6!}{6^6}=\frac{5}{324}\)
ML
12 tháng 6 2020
Bài 1: S=15
Bài 2: S=17
Bài 3:
1)X:=10; while X:=10 to X:(thiếu dấu '=') X+5;
2) X:=10; while X = 10 do X(thiếu dấu ';') =X+5 (thiếu dấu ';')
3) S:=0; n:=0; while S <= 10 do (thiếu 'begin') n:(thiếu dấu '=')n+1 ,(để kết thúc đoạn lệnh dùng dấu ';' không phải dấu ',') S:= S+n; (thiếu end;)
V
25 tháng 8 2019
Bài 1:
uses crt;
var s:string;
k:longint;
begin
clrscr;
write('Nhap xau S:');
readln(s);
writeln('--------');
writeln('Phan a:');
writeln('Do dai xau S: ',length(s));
writeln('--------');
writeln('Phan b:');
write('Nhap k:');
readln(k);
writeln('Ki tu thu K cua S la: ',s[k]);
writeln('--------');
writeln('Phan C minh dang nghien cuu, mong ban thong cam');
readln
end.
Bài 2: ( Phần a) thôi nhé :/ )
uses crt;
procedure ASCII;
var i: byte;
begin
for i := 0 to 255 do
begin
write(chr(i), ': ',i:3,' ');
delay(1);
if i mod 5 = 0 then writeln();
end;
readln
end;
begin
ASCII;
writeln('--------');
end.
Bài 3:
uses crt;
var st:string;
i:longint;
Function POSNUM(St:String):Byte;
Var OK:Boolean;
i:Byte;
Begin
writeln('Phan a)');
write('Nhap xau S:');
readln(st);
writeln(upcase(st));
writeln('Phan b:');
OK:=False;
i:=1;
While (i<=Length(St)) AND (Not OK) Do
If St[i] IN ['0'..'9'] Then OK:=True
Else i:=i+1;
If OK Then POSNUM:=i Else POSNUM:=0;
End;
Begin
Write('Nhap xau St: '); Readln(St);
While POSNUM(St)<>0 Do Delete(St,POSNUM(St),1);
Write('Xau sau khi xoa: ',St);
writeln('Phan c:');
writeln;
for i:=length(st) to 1 do
write(st[i]);
Readln;
End.
Bài 4, Bài 5: Tớ tịt rồi :/
ML
24 tháng 8 2019
Bài 1: Bạn có thể ghi rõ đề hơn không , bạn hỏi ở câu b viết ra kí tự k của s ?
Bài 2: Mảng ASC11 là sao ạ . Ý bạn nói là bảng mã ASCII ?
Nếu là bảng mã ASCII thì bạn chỉ cần sử dụng chr hoặc ord .
Bài 3:
Mình chỉ làm 1 đoạn sau đó bạn hoàn thành chương trình hoàn chỉnh nhé:
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
Bài 4:
for i:=length(s) downto 1 do
st:=st+s[i];
if st=s then write('Phai') else write('Khong phai');
Bài 5: Ý bạn là tách ra từng kí tự ?
TQ
17 tháng 3 2017
cái này đúng
var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
k:=k+1;
end;
write ('so ki tu chu cai tieng anh in hoa khac nhau trong xau S=',k);
readln
end.
TQ
17 tháng 3 2017
câu b
('đúng ')
var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S ..');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
begin
write(i,' xuat hien',n,' lan');
writeln(' ');
end;
end;
readln
end.
TS
29 tháng 10 2016
1. A. that B. mother C. this D. three
2. A. listen B. it C. ten D . sister
3. A.Who B. What C.White D. where
4. A.eraser B. sneaker C. house D. six
5. A. thank B. they C. these D. that
CD
13 tháng 6 2018
Bµi 7 : S¾p xÕp l¹i c¸c tõ, côm tõ ®· cho thµnh c©u hoµn chØnh( 1 ®iÓm)
1. do / want / to / a / why/ you / be / doctor / ? /
Why do you want to be a doctor?
2. Tom / going / ride / at / weekend / is / to / a / bicycle / the.
Tom is going to ride a bicycle at the weekend.
3. go / let’s / to / zoo / the .
Let's go to the zoo.
4. there / police station / is / a / here / near/ ? /
Is there a police station near here?
HH
13 tháng 6 2018
1. Why do you want to be a doctor?
2. Tom is going to ride a bicycle at the weekend.
3. Let’s go to the zoo.
4. Is there a police station near here?
cuong
kien meo