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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
NL
Nguyễn Lê Phước Thịnh
CTVHS
8 tháng 5 2021
const fi='dl.inp';
fo='dl.out';
var f1,f2:text;
st:string;
i,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
for i:=2 to d-1 do
write(f2,st[i]);
close(f1);
close(f2);
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
5 tháng 5 2021
const fi='kt.txt';
fo='kq.out';
var f1,f2:text;
s:string;
i,dem,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
vt:=pos('anh',s);
while vt<>0 do
begin
delete(s,vt,3);
insert(s,vt,'em');
vt:=pos('anh',s);
end;
writeln(f2,s);
close(f1);
close(f2);
end.
Program HOC24;
const fi='bai24.inp';
fo='bai24.out';
var f: text;
s: string;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
if s='palindrome' then write(f,'La xau palindrome') else write(f,'Khong phai xau palindrome');
close(f);
end;
begin
ip;
out;
end.
Không đúng rồi ạ
Lỗi ở đâu đó
const fi='bai24.inp';
fo='bai24.out';
var f1,f2:text;
s:string;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
if s='palindrome' then writeln(f2,'Phai')
else writeln(f2,'Khong phai');
close(f1);
close(f2);
end.
Bạn tạo tệp 'bai24.inp' và nhập dữ liệu vào nhé.