2 câu trả lời
Program FNG;
Uses crt;
Var f: String;
i: longint;
Begin
Clrscr;
Write('Nhap f: '); Readln(f);
Writeln('Do dai: ',length(f));
For i:=1 to length(f) do
f[i]:=Upcase(f[i]);
Write('Xau: ',f);
Readln
End.
program oken;
uses crt;
var f:string;
i:byte;
begin
clrscr;
write('Nhap 1 xau: '); readln(f);
writeln('Do dai cua xau: ',length(f));
write('in ra xau in hoa: ');
for i:=1 to length(F) do
write(upcase(f[i]));
readln;
end.
Câu hỏi trong lớp
Xem thêm
