Question

Составьте программу получения из слова «дисковод» слова «воск», используя операцию сцепления и функцию Сору.

Answer 1

program Example3;
var   word1, word2: string;
begin   word1 := 'дисковод';   word2 := Copy(word1, 2, 4); // Копируем подстроку из word1, начиная с позиции 2 и длиной 4 символа   writeln(word2); end.