K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

st:='Xin chao!';

d:=length(st);

for i:=1 to d do

  st[i]:=upcase(st[i]);

writeln(st);

readln;

end.

12 tháng 4 2022

program VTC:

uses crt;

Begin

     clrscr;

    Writeln(' THPT Hoang Hoa Tham' );

    readln;

end.

12 tháng 4 2022

Bạn ơi đọc lại đề giúp mình với

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(s);

d:=length(s);

for i:=1 to d do 

  s[i]:=upcase(s[i]);

writeln(s);

readln;

end.

uses crt;

var st:string;

i,d,dem,dem1:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem:=0;

dem1:=0;

for i:=1 to d do 

  begin

if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);

if st[i] in ['0'..'9'] then inc(dem1);

end;

writeln('So chu cai trong xau la: ',dem);

writeln('So chu so trong xau la: ',dem1);

for i:=1 to d do 

  st[i]:=upcase(st[i]);

writeln('Xau sau khi in hoa la: ',st);

readln;

end.

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

 s[i]:=upcase(s[i]);

writeln(s);

readln;

end.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

writeln('Xau vua nhap la: ',st);

for i:=1 to d do 

  if st[i] in ['a'..'z'] then upcase(st[i]);

writeln(st);

readln;

end.

4 tháng 5 2022

code pascal

var f,g:text;

var s:string;

begin

assign(f,'cau2.txt'); reset(f);

read(f,s);

assign(g,'KQ.txt'); rewrite(g);

write(g,upcase(s));

close(f);

close(g);

end.

21 tháng 3 2022

Cho em lời giải với ạ em đang thi ạ

 

16 tháng 3 2021