Получите из слова "тестирование" указанные слова. для этого используйте команды: copy, delete, insert и операцию сложения строк.
1.нива
2.товар
4.тостер

ответ:

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.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.