Đáp án: Viết chương trình nhập từ bàn phím 1 xâu ký tự gồm cả chữ và số, đưa ra tệp xaukytudoc số lượng các từ có trong xâu - const fi=ʹdulieutxtʹ; fo=ʹketquatxtʹ; var xau string; f1,f2text; begin assign(f1,fi); reset(f1); assign(f2,fo); rewrite(f2); begin Write(ʹnhap xau ʹ); readln,xau); Write(ʹso luong tu trong cau laʹ,length(xau) ; Readln close(f1); close(f2); end

const fi=ʹdulieutxtʹ; fo=ʹketquatxtʹ; var xau string; f1,f2text; begin assign(f1,fi); reset(f1); assign(f2,fo); rewrite(f2); begin Write(ʹnhap xau ʹ); readln,xau); Write(ʹso luong tu trong cau laʹ,length(xau) ; Readln close(f1); close(f2); end

Const Fo=ʹaukituDOCʹ;Var g text; St String; i longint;Begin Assign(g,Fo); Rewrite(g); Write(ʹNhap St ʹ); Readln(St); Write(g,length(St)); Close(g);End

Minh Trang

2 năm trước

Viết chương trình nhập từ bàn phím 1 xâu ký tự gồm cả chữ và số, đưa ra tệp xaukytu.doc số lượng các từ có trong xâu.

Xem đáp án

54 lượt xem

2 câu trả lời

Ninh Ninh

2 năm trước

const fi='dulieu.txt';

fo='ketqua.txt';

var xau: string;

f1,f2:text;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

begin

Write('nhap xau '); readln,xau);

Write('so luong tu trong cau la',length(xau) ;

Readln

close(f1);

close(f2);

end.

YiYi Đức Nhật

2 năm trước

Const Fo='Xaukitu.DOC';
Var g: text;
St: String;
i: longint;
Begin
Assign(g,Fo); Rewrite(g);
Write('Nhap St: '); Readln(St);
Write(g,length(St));
Close(g);
End.