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

Các bài viết của blog được tham khảo từ: www.cadasa.vn, Loigiaihay.com, Updating...