Question

Viết chƣơng trình đọc từ tệp ‘bai24.inp’ một xâu kí tự và ghi thông báo xâu có phải là xâu palindrome vào tệp ‘bai24.out’ sử dụng 1 biến xâu

Answer 1

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.

Answer 2

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.