Question

Получите из слова "ТЕСТИРОВАНИЕ" указанные слова.Для этого используйте команды: copy, delete, insert и операцию сложения строк.
1.НИВА
2.ТОВАР
4.ТОСТЕР
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!

Answer 1

Ответ:

var s1,s2,s3,s4: string;

begin

s1:='ТЕСТИРОВАНИЕ';

s2:=copy(s1,10,2)+copy(s1,8,2);

s3:=copy(s1,1,1)+copy(s1,7,3)+copy(s1,6,1);

s4:=s1;

delete (s4,7,6);

s4[5]:=s4[2];

delete (s4,2,1);

insert ('О',s4,2);

write (s2,'   ',s3,'   ',s4)

end.