Đáp án: 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 - 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);...

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);...

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

luka12marine

2 tháng trước

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

Xem đáp án

12 lượt xem

2 câu trả lời

Đỗ Văn Hùng

2 tháng trước

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.

Nguyễn Trang

2 tháng trước

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.