Question

Viết chương trình nhập vào ký tự nếu là ký tự thường thì in ra kí tự hoa tương ứng, nếu là kí tự hoa thì in ra kí tự thường tương ứng, nếu là các kí tự khác thì in ra chính nó

(Ai trả lời nhanh mik tick nha)

Answer 1

-lệnh dùng để xóa màn hình làm việc:

Uses Crt ; { khai báo thư viện hàm }

Clrscr; { lệnh xóa màn hình kết quả }

- hai lệnh này dùng song song vs nhau nha.

VD:

Program vi_du;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

write('nhap so n ='); readln(n);

s:=0;

for i:= 1 to n do

s:=s+i;

writeln(s :4:2);

readln;

end.

Answer 2

Program Chuoi_Chu_Thuong;
Uses Crt;
Var i,l:integer;
st:string[50];

Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI CHU THUONG’);
Write(‘Nhap chuoi ky tu: ‘); Readln(st);
For i:=1 to length(st) do
If (st[i]>=’A’) and (st[i]<='Z') then st[i]:= chr(ord(st[i])+32);
Writeln;
Writeln('Chuoi doi thanh chu thuong la : '); Writeln(st);
Writeln; l:=length(st); st[l]:=upcase(st[l]); For i:=l downto 2 do
If st[i]=' ' then st[i-1]:=upcase(st[i-1]);
Writeln('Chuoi cac ky tu cuoi cua tu la ky tu hoa: ');
Writeln(st);

Readln;

End.