Question

Câu 1: Viết chương trình nhập từ bàn phím xâu kí tự đếm và in ra màn hình. Số kí tự là dấu cách trong câu.

Câu 2: Viết chương trình nhập từ bàn phím xâu kí tự đếm và in ra màn hình. Số kí tự là chữ in hoa trong xâu.

Answer 1

Câu 1:

uses crt;
var xau: string;
n,i:integer;
begin
clrscr;
n:= 0;
write('Nhap xau: ');readln(xau);
for i:= 1 to length(xau) do
if xau[i] = chr(32) then n:= n + 1;
write('So ki tu la phim cach trong xau la: ', n);
readln
end.

Câu 2:

uses crt;
var xau: string;
n,i:integer;
begin
clrscr;
n:= 0;
write('Nhap xau: ');readln(xau);
for i:= 1 to length(xau) do
if xau[i] = upcase(xau[i]) then n:= n + 1;
write('So ki tu in hoa trong xau la: ', n);
readln
end.