Что отобразит фрагмент этой программы, Pascal Опции

[Vino-grad]

S := 'ABCDEF';
T := 'rinda';
Insert(T, S, 3);
T := Copy(T, 3,1);
Write (S, ' ', T);

и еще один фрагментик другой программы:

Var a,b,d:string; c: integer;
Begin
a:= 'pascal';
b:='stunda';
c:=pos(b,a);
d:=copy(b,3,2);
insert(d,a,1);
delete(b,1,4)
write(a,b,c,d);
end.

[volvo]

Ошиблась... Символы в строках нумеруются с единицы, а не с 0, поэтому перед последним Write-ом в строке T будет не буква d... Посмотри внимательнее...

По той же причине и чуть выше - тоже ошибка...

Сообщение отредактировано: volvo - 16.12.2008 23:21