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.

15 tháng 11 2019

Đáp án đúng : D

1 tháng 5 2019

Đáp án đúng : C

20 tháng 6 2017

Đáp án đúng : D

9 tháng 12 2019

Đáp án đúng : C

3 tháng 5 2019

Đáp án đúng : D

27 tháng 8 2019

Đáp án đúng : D

19 tháng 6 2019

Đáp án đúng : C

19 tháng 5 2017

Đáp án đúng : A

18 tháng 3 2022

d

28 tháng 4 2021

Program HOC24;

var s: string;

i: byte;

begin

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

for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);

readln

end.

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]='a' then delete(st,i,1);

writeln(st);

readln;

end.