Viết chương trình nhập từ bàn phím xâu kí tự S có độ dài không quá 120 kí tự. Hãy cho biết có bao nhiêu kí tự cách xuất hiện trong xâu S.
a. Đưa kết quả ra màn hình
b. Ghi kết quả vào tên tệp “dulieu.dat”
Giúp mình với ạ
Viết chương trình nhập từ bàn phím xâu kí tự S có độ dài không quá 120 kí tự. Hãy cho biết có bao nhiêu kí tự cách xuất hiện trong xâu S.
a. Đưa kết quả ra màn hình
b. Ghi kết quả vào tên tệp “dulieu.dat”
Giúp mình với ạ
var s: string[120];
f: text;
d, i: byte;
Begin
Write(‘nhap xau: ‘); readln(s);
Assign(f, ‘dulieu.dat’); rewrite(f);
D:=0;
For i:=1 to length(s) do
If s[i]=’ ‘ then inc(d);
Write(‘co ‘, d, ‘ ki tu cach’);
Write(f, ‘co ‘, d, ‘ ki tu cach’);
Close(f);
End.