Question

Получите из слова ТЕСТИРОВАНИЕ слово НИВА
В Pascal abc,баллами не обижу.​

Answer 1

program foo;

var

 s: string[12];

 s1: string[4];

begin

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

 s1 := XXXXX( Copy(s, 10, 2), Copy(s, 8, 2) );

 write(s1)

end.