Тема 8: Операции над строками

Варианты ответа

stuefnt
student
stuefouou
ouou
stuefot
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

var ss:string;  i:integer;
begin
ss:= 'student';  
for i:=pos('d',ss) to length(ss) do
  ss[i]:= succ(ss[i]);
ss:= ss+copy(ss,pos('o',ss),2);
delete(ss,1,5);
write(ss); readln;
end.

Варианты ответа

ena
udentka
udena
stentka
stenka
a
Программа вызовет
ошибку при компиляции

var ss:string;  c:char;
begin
ss:= 'studentka';
for c:='s' to 'u' do
  delete(ss,pos(c,ss),2);
write(ss); readln;
end.

Варианты ответа

edstuka
stuka
dstuka
gfedstuka
fedstuka
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

var ss:string;  c:char;
begin
ss:= 'studentka';
c:= 'd';
delete(ss,pos(copy(ss,4,3),ss),4);
while c < 'f' do
  begin
    ss:=c+ss; c:= succ(c);
  end;
write(ss); readln;
end.

Варианты ответа

SuDent
SuDet
SuDe
StuDent
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
StuDen
Stu

var ss:string; len,j:integer;
begin
ss:= 'StuDent'; len:=7; j:=1;
while true do
  begin
    if ss[j] > 'e' then
      delete(ss,pos(ss[j],ss),1);
      inc(j);
      if j >=length(ss) then break;
  end;
write(ss); readln;
end.

Варианты ответа

krot
koshka
vorona
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
swinka
kot
slon

var ss:string; len,j:integer;
begin
ss:= 'k';
for j:=1 to 6 do
  ss:=ss+char(byte('L')+j);
case ss[5] of
'L'..'N':ss:='krot';
'O':ss:='koshka';
'O'..'R':ss:='slon';
'Q':ss:='swinka';
'P':ss:='kot';
'P'..'S':ss:='vorona';
end;
write(ss); readln;
end.