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.


Các câu hỏi tương tự
nguyen dao
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Yumi MC
Xem chi tiết
Bảo Lê
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Võ Thị Thái Ngọc
Xem chi tiết
NTKL
Xem chi tiết
Nguyễn Hoàng Nam
Xem chi tiết
Khánh Mỹ
Xem chi tiết