Cho 2 Xâu S1,S2 được Nhập Vào Từ Bàn Phím.Nếu ...

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

lekiet229
Chưa có nhóm

Trả lời
27
Điểm
1115
Cảm ơn
24

Tin Học
Lớp 8
50 điểm
lekiet229 - 16:14:52 19/08/2021

Cho 2 xâu S1,S2 được nhập vào từ bàn phím.Nếu 2 xâu có kí tự giống nhau, viết 1, nếu ko viết 0 mik cần gấp :((

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

tuongtaylor
Hội code dạo

Trả lời
2376
Điểm
46183
Cảm ơn
1806

tuongtaylor

Câu trả lời hay nhất!
19/08/2021

uses crt;var i,kt:longint; s1,s2:string;begin clrscr; write('Nhap xau S1: ');readln(s1); write('Nhap xau S2: ');readln(s2); for i:=1 to length(s1) do if pos(s1[i],s2)<>0 then kt:=1; writeln(kt);readlnend.

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

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn 1
Báo vi phạm

- nguyenminhquan15
- Chưa có nhóm
- Trả lời
  2863
- Điểm
  41637
- Cảm ơn
  21147
kt:=1 chứ
- tuongtaylor
- Hội code dạo
- Trả lời
  2376
- Điểm
  46183
- Cảm ơn
  1806
à vâng ạ
- tuongtaylor
- Hội code dạo
- Trả lời
  2376
- Điểm
  46183
- Cảm ơn
  1806
r nha ca

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

nguyenminhquan15
Chưa có nhóm

Trả lời
2863
Điểm
41637
Cảm ơn
21147

nguyenminhquan15

19/08/2021

program bai_giai;uses crt;var S1,S2:string; i:byte;begin clrscr; write('Nhap S1: '); readln(S1); write('Nhap S2: '); readln(S2); for i:=1 to length(S1) do if pos(S1[i],S2)<>0 then begin write(1); readln; exit; end; write(0); readln;end.

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

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy