Question

Viết chương trình con đổi chữ cái hoa được nhập vào từ bàn phím thành chữ thường

Answer 1

Uses crt;

var x:char;

begin

clrscr;

readln(x);

write(chr(ord(x)-32));

readln;

end.

Answer 2

uses crt;

var n:string;

i,l:longint;

begin 

clrscr;

read(n);

for i := 1 to length(n) do 

case n[i] of

'A'..'Z' : n[i]:=chr(ord(n[i])+32);

end;

write(n);

end.