Soạn Bài Và Giải Bài Tập Về Nhà!

program BTVN;

uses crt;

var c,s:string[100];

i,j,y,dem:byte;

begin clrscr;

write('Nhap xau S: '); Readln(s);

y:= length(s);

dem:= 0;

c:= ' ';

for i:= 1 to y do

if (s[i] = ' ') or ((s[i] >= 'A') and (s[i] <= 'Z')) then

begindem := dem + 1;c:= c + s[i];
end

else if (s[i] = ' ') or ((s[i] >= 'a') and (s[i] <= 'z')) thenbegindem := dem + 1;c:= c+s[i];end;

writeln('So chu cai trong xau S la: ', dem);
writeln(c);
readln
end.

*Bài tập bằng hình ảnh: