Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
dũng
Xem chi tiết
Hai Yen Duong
Xem chi tiết
Lala
Xem chi tiết
Lala
Xem chi tiết
Hello1234
Xem chi tiết
Kiều Vũ Linh
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.

Nguyễn Hoàng Nam
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

hoàng đức hiếu
Xem chi tiết
Cửu vĩ linh hồ Kurama
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,...

Cửu vĩ linh hồ Kurama
6 tháng 10 2016 lúc 18:00

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

!!!!

hoàng đức hiếu
6 tháng 10 2016 lúc 18:14

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

Lê Chiêu Nguyên	Vũ
Xem chi tiết
Coming Home
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.