viết chương trình nhập vào một xâu đếm xem xâu đó có bao nhiêu từ bao nhiêu kí tự
viết chương trình nhập vào một xâu đếm xem xâu đó có bao nhiêu từ bao nhiêu kí tự
By Elliana
By Elliana
viết chương trình nhập vào một xâu đếm xem xâu đó có bao nhiêu từ bao nhiêu kí tự
var s: string;
i, d: byte;
begin
write(‘nhap xau: ‘); readln(s);
d:=0;
Writeln(‘co ‘, length(s), ‘ ki tu’);
For i:=1 to length(s) do
If s[i]=’ ‘ then inc(d);
Write(‘co ‘, d+1, ‘ tu’);
Readln
End.
program tu_kitu;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
d:=1;
for i:=1 to length(s) do
if s[i]=’ ‘ then d:=d+1;
writeln(‘Co ‘,d,’ tu’);
writeln(‘Co ‘,length(s),’ ki tu’);
readln;
end.