Hãy viết chương trình nhập vào một xâu S bất kỳ, đưa ra màn hình xâu in hoa , sau đó thêm xâu "2030" vào đầu xâu hoa vừa in ra màn hình.
2 câu trả lời
program bai_Giai;
uses crt;
var s,s1:string;i:longint;
begin
clrscr;
write('nhap xau:');readln(s);
s1:='2030';
for i:=1 to length(s)do
begin
s[i]:=upcase(s[i]);
s1:=s1+s[i];
s:='';
end;
write(s1);
readln
end.
uses crt;
var s: string;
begin
clrscr;
readln(s);
writeln('2030', upcase(s));
readln;
end.
Câu hỏi trong lớp
Xem thêm
