Viết chương trình nhập 2 xâu từ bàn phím,tìm xâu ngắn hơn và ghi xâu đó lên tệp ketqua.txt
2 câu trả lời
uses crt;
var fo:text;s1,s2:string;
BEGIN
clrscr;
assign(fo,'ketqua.txt');rewrite(fo);
readln(s1);readln(s2);
if length(s1)<length(s2) then writeln(fo,s2);
if length(s1)>length(s2) then writeln(fo,s1);
if length(s1)=length(s2) then begin writeln(fo,s1);writeln(fo,s2) end;
close(fo);
END.
program xau_ngan;
uses crt;
var f:text;
s1,s2:string;
begin
clrscr;
Assign(f,'ketqua.txt'); rewrite(f);
write('Nhap xau thu nhat: '); readln(s1);
write('Nhap xau thu hai: '); readln(s2);
if length(s1)=length(s2) then write(f,s1,' ',s2)
else if length(s1)<length(s2) then write(f,s1) else write(f,s2);
readln;
end.
