hỗ trợ tin học 11

[Nguyễn Minh Chi]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

giúp em giải bài pascal này với ạ:
'' viết chương trình nhập vào hai xâu ST1 và ST2, kiểm tra kí tự thứ 5 của xâu ST1 có trùng với xâu ST2 hay không ( sử dụng chương trình con )''

 

[kyxaoeffectpro]

function check(st1,st2:string):boolean;
begin
if st1[5] = st2[5] then check:=true else check:=false;
end;

 

[Nguyễn Minh Chi]

function check(st1,st2:string):boolean;
begin
if st1[5] = st2[5] then check:=true else check:=false;
end;

viết chương trình đầy đủ giúp em với

 

[cuongtk2002]

ct đây !
function check(st1,st2:string):boolean;
begin
if st1[5] = st2[5] then check:=true else check:=false;
end;
var st1,st2:string;
begin
readln(st1,st2);
if check(st1,st2) then write('co trung') else write('ko trung');
readln
end;