. 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