Bài 1 . Viết Chương Trình Nhập Vào Một Xâu Bất Kì , Nhập Vào Kí Tự K ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

holdon
Chưa có nhóm

Trả lời
0
Điểm
39
Cảm ơn
0

Tin Học
Lớp 11
20 điểm
holdon - 18:18:15 11/06/2020

Bài 1 . Viết chương trình nhập vào một xâu bất kì , nhập vào kí tự k bất kì . Hãy đếm xem trong xâu đó có bao nhiêu kí tự bằng kí tự k . In kết quả ra màn hình Bài 2. Viết chương trình nhập vào hai xâu bất kì , hãy kiểm tra xem kí tự thứ hai của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không . In kết quả ra màn hình Bài 3. Viết chương trình nhập vào một xấu bất kì hãy đếm xem trong xâu đó có bao nhiêu từ ( biết rằng mỗi từ sẽ được viết cách nhau một dấu cách space )

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

Datdoan03
Chưa có nhóm

Trả lời
869
Điểm
24096
Cảm ơn
642

Datdoan03

Câu trả lời hay nhất!
11/06/2020

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Bài 1:

program b1;uses crt;var dem,i:integer;

s:string;

k:char;begin clrscr; writeln('Nhap xau: '); readln(s); write('Nhap ki tu k: '); readln(k); dem:=0; for i:=1 to length(s) do if k=s[i] then dem:=dem+1; writeln(‘Trong xau co ‘,dem,’ ki tu bang ki tu ‘,k);readln;end.

Bài 2:

Program b2;uses crt;var s1,s2:string;begin clrscr; write('Nhap xau 1: '); readln(s1); write('Nhap xau 2: '); readln(s2); if s1[2]=s2 [length(s2)] then writeln('Hai ki tu trung nhau: ',s1[2]) else writeln('Hai ki tu khong trung nhau');readln;end.

Bài 3:

program b3;uses crt;var s:string; i,dem:integer;begin clrscr; write('Nhap xau: '); readln(s); dem:=0; for i:=1 to length(s) do if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then dem:=dem+1; writeln('So tu co trong xau: ',dem);readln;end.

Học tốt!

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn 1

Đăng nhập để hỏi chi tiết avatar

ttphulhp
Chưa có nhóm

Trả lời
913
Điểm
17366
Cảm ơn
515

ttphulhp

11/06/2020

Bài 1:

program oken;uses crt;var s: string; k: char; dem,i: byte;begin clrscr; write('Nhap 1 xau: '); readln(s); write('Nhap 1 ki tu k: '); readln(k); dem:=0; for i:=1 to length(s) do if k=s[i] then dem:=dem+1; writeln('So ki tu la ',k,' co trong xau: ',dem); readln;end.

Bài 2:

program oken;uses crt;var s1,s2: string;begin clrscr; write('Nhap xau thu 1: '); readln(s1); write('Nhap xau thu 2: '); readln(s2); if s1[2]=s2[length(s2)] then writeln('2 ki tu trung nhau: ',s1[2]) else writeln('2 ki tu khong trung nhau'); readln;end.

Bài 3:

program oken;uses crt;var s: string; i,dem: byte;begin clrscr; write('Nhap xau: '); readln(s); dem:=0; for i:=1 to length(s) do if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then dem:=dem+1; writeln('So tu co trong xau: ',dem); readln;end.

Hãy giúp mọi người biết câu trả lời này thế nào?