Những câu hỏi liên quan
H24
Xem chi tiết
HD
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
KL
27 tháng 3 2022 lúc 10:26

var s:string;

i:integer;

begin

write('Nhap xau ki tu S = ');readln(s);

for i:=1 to length(s) do

begin

if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);

i:=length(s);

end;

readln;

end.

Bình luận (0)
NN
Xem chi tiết
NT
15 tháng 3 2022 lúc 22:17

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

  if (st[i]='a') or (st[i]='A') then st[i]:='b'

writeln(st);

readln;

end.

Bình luận (0)
HH
Xem chi tiết
CK
6 tháng 10 2016 lúc 18:20

Sau khi danh xong cau phai them chu cai nhung 1 chu thoi !!!

Ví dụ:a,s,d,...

Bình luận (0)
CK
6 tháng 10 2016 lúc 18:00

Thì là tên đăng nhập ko dau do!!!

!!!!

Bình luận (0)
HH
6 tháng 10 2016 lúc 18:14

Bạn sai rồi mình điền hơn 6kí tự rồi! :(

Bình luận (0)
LV
Xem chi tiết
CH
Xem chi tiết
NT
17 tháng 5 2021 lúc 9:56

uses crt;

const fi='dulieu.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

d:=length(st);

for i:=1 to d do 

if (st[i] in ['A'..Z']) or (st[i] in ['0'..'9']) or (st[i]=#32) then write(f1,st[i]);

close(f1);

end.

Bình luận (0)