Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nguyen thi khanh nguyen

Cho xâu S , viết chương trình đưa ra độ dài của xâu. Yêu cầu : Tệp xau.inp chứa 5 xâu S, mỗi xâu trên 1 dòng ; kết quả độ dài của xâu được lưu vào tệp Dodai.out , mỗi kết quả trên 1 dòng GIÚP MÌNH VỚI , TỐI NAY MÌNH NẠP RỒI Ạ !!

Minh Lệ
22 tháng 5 2020 lúc 11:09

Program HOC24;

const fi='dodai.inp';

fo='xau.out';

var s: array[1..5] of string;

i: integer;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

for i:=1 to 5 do readln(f,s[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=1 to 5 do writeln(f,length(s[i]));

close(f);

end;

begin

ip;

out;

end.