. Viết chương trình thực hiện công việc sau Nhập một ký tự bất kỳ là chữ cái từ bàn phím. Dừng nhập khi kí tự là ‘C’. In ra các kí tự hoa tương ứng của các kí tự được nhập trên một hàng.
2 câu trả lời
var s: char;
st: ansistring;
begin
while s<>'C' do
begin
readln(s);
st:=st+s;
end;
st:=upcase(st);
write(st);
readln
end.
uses crt;
var S, C : string;
begin
clrscr;
C := '';
write('Nhap ki tu : '); readln(S);
while S <> 'C' do begin
S := upcase(S); C := C + S;
write('Nhap ki tu : '); readln(S);
end;
write('Xau ki tu hoa : ', C);
readln
end.
Câu hỏi trong lớp
Xem thêm