Nhập vào một chuỗi, kiểm tra xem chuỗi đó có ký tự nào là chữ in hoa hay không, nếu có thì in True, không có thì in False. KO DÙNG LỆNH IF-THEN Nhập vào một chuỗi, kiểm tra xem chuỗi đó có ký tự nào là chữ in thường hay không, nếucó thì in True, không có thì in False KO DÙNG IF-THEN NHA :V

2 câu trả lời

Câu 1:

var s: ansistring;
    i: longint;
    check: boolean = false;
begin
    readln(s);
    for i:=1 to length(s) do
        check:=check or (s[i] in ['A'..'Z']);
    writeln(check);
end.

Câu 2:

var s: ansistring;
    i: longint;
    check: boolean = false;
begin
    readln(s);
    for i:=1 to length(s) do
        check:=check or (s[i] in ['a'..'z']);
    writeln(check);
end.

Câu 1:

var s: ansistring;
    i: longint;
    check: boolean = false;
begin
    readln(s);
    for i:=1 to length(s) do
        check:=check or (s[i] in ['A'..'Z']);
    writeln(check);
end.

Câu 2:

var s: ansistring;
    i: longint;
    check: boolean = false;
begin
    readln(s);
    for i:=1 to length(s) do
        check:=check or (s[i] in ['a'..'z']);
    writeln(check);
end.