Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
quang Vien
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 4 2021 lúc 22:34

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

for i:=1 to d do

  if st[i]=#32 then 

begin

writeln(i);

break;

end;

readln;

end.

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.

Thiên Thiên
Xem chi tiết
Minh Lệ
16 tháng 3 2021 lúc 21:37

Program HOC24;

var s: string;

x: char;

d: byte;

begin

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

write('Nhap ki tu: '); readln(x);

d:=0;

for i:=1 to length(s) do if s[i]=x then d:=d+1;

if d=0 then write('Ki tu do khong xuat hien trong xau') else write('Ki tu do xuat hien trong xau');

readln

end.

Lan Anh
Xem chi tiết
Nguyễn Thiên Hoàng
Xem chi tiết
Quỳnh Anh Đào
Xem chi tiết
Hello Det
4 tháng 5 2022 lúc 19:27

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.

Phạm Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 22:45

uses crt;

var st:string;

i,dem:integer;

begin

clrscr;

readln(st);

writeln(length(st));

for i:=5 to 8 do write(st[i]);

writeln;

dem:=0;

for i:=1 to length(st) do 

  if st[i]='b' then dem:=dem+1;

writeln(dem);

readln;

end.

Bảo Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:29

const fi='dl.inp'

fo='dl.out'

var f1,f2:text;

st:string;

i,d:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

for i:=2 to d-1 do 

  write(f2,st[i]);

close(f1);

close(f2);

end.

Lê Oanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 20:03

uses crt;

var a,b:string;

i,n,d,d1:integer;

begin

clrscr;

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

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

if a[length(a)]=b[1] then writeln('Ki tu cuoi cua xau a trung voi ki tu dau cua xau b')

else writeln('Ki tu cuoi cua xau a khong trung voi ki tu dau cua xau b');

dem:=0;

while pos(b,a)>0 do

 begin

inc(dem);

delete(a,pos(b,a),length(b));

end;

writeln('Xau b xuat hien ',dem,' lan trong xau a');

readln;

end.

Đỗ Trần Nam Phương
Xem chi tiết