viết chương trình nhập vào 1 xâu từ bàn phím in ra màn hình các chữ cái có trong xâu khong phân biệt chữ hoa hay chữ thường 16/07/2021 Bởi Autumn viết chương trình nhập vào 1 xâu từ bàn phím in ra màn hình các chữ cái có trong xâu khong phân biệt chữ hoa hay chữ thường
Program HOC24; var s: string; i,d: byte; begin write(‘Nhap xau: ‘); readln(s); d:=0; for i:=1 to length(s) do if (s[i]=’b’) or (s[i]=’B’) then d:=d+1; write(‘Co ‘,d,’ ki tu B trong xau’); readln end. Bình luận
Program HOC24;
var s: string;
i,d: byte;
begin
write(‘Nhap xau: ‘); readln(s);
d:=0;
for i:=1 to length(s) do if (s[i]=’b’) or (s[i]=’B’) then d:=d+1;
write(‘Co ‘,d,’ ki tu B trong xau’);
readln
end.