Bài tập pascal: Nhập vào xâu S tìm và in ra số chữ cái và chữ cái tìm được trong xâu.
Đề bài: Nhập vào xâu S tìm và in ra số chữ cái và chữ cái tìm được trong xâu.
Bài làm:
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:
Bài tập được thực hiện bởi: TĐK K19E
