Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert(s1 , s2 , 2);
write(s1);
Kết quả in ra màn hình là:
A. ‘a123bc’
B. ‘1abc23’
C. ‘123’
D. ‘abc’
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert(s1 , s2 , 1);
write(s1);
Kết quả in ra màn hình là:
A. ‘a123bc’
B. ‘1abc23’
C. ‘123’
D. ‘abc’
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abcd’;
insert (s1, s2 ,3);
write(s2);
Kết quả in ra màn hình là:
A. ‘ab123cd’
B. ‘123abcd’
C. ‘a123bcd’
D. ‘abc123d’
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert(s2 , s1 , 2);
write(s2);
Kết quả in ra màn hình là:
A. ‘a123bc’
B. ‘1abc23’
C. ‘123’
D. ‘abc’
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abcd’;
insert (s1, s2 ,1);
write(s2);
Kết quả in ra màn hình là:
A. ‘ab123cd’
B. ‘a123bcd’
C. ‘123abcd’
D. ‘abc123d’
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abc’;
insert (s2 , s1 , 1);
write(s1);
Kết quả in ra màn hình là:
A. ‘123abc’
B. ‘abc’
C. ‘123’
D. ‘abc123’
Cho đoạn chương trình sau:
s1 := ‘123’; s2 := ‘abcd’;
insert (s1, s2 ,4);
write(s2);
Kết quả in ra màn hình là:
A. ‘123abcd’
B. ‘a123bcd’
C. ‘ab123cd’
D. ‘abc123d’
chương trình giải cứu diễm my(là tui đó)=))
321+123-345+123:234+765=
ko hiểu
quá lô zích
123:được cho 234
Viết chương trình nhập vào 1 xâu, hãy cho biết tổng của các số trong xâu. (Pascal ) VD: abc1eg22kh123
= 1+22+123=146
CíuuuuuT_T
uses crt;
var st:string;
i,d,t,x,y:integer;
begin
clrscr;
readln(st);
d:=length(st);
t:=0;
for i:=1 to d do
if (st[i] in ['0'..'9']) then
begin
val(st[i],x,y);
t:=t+x;
end;
writeln(t);
readln;
end.
