Строка t равна “действительность”. Найти значение: copy(t, 14, 2)+copy(t, 6, 1)+copy(t,...

Question

Строка t равна “действительность”. Найти значение: copy(t, 14, 2)+copy(t, 6, 1)+copy(t, 13, 1)+copy(t, 10, 1); copy(t, 6, 2)+ copy(t, 1, 1). 2. Строка t равна “ДЕЙСТВИТЕЛЬНОСТЬ”. Написать алгоритм (программу) составления слов: ДЕЙСТВИЕ СВИДЕТЕЛЬ ДЕЛО

Answer 1

1. стволвид

2.

var

 t: string;

begin

   t := 'ДЕЙСТВИТЕЛЬНОСТЬ';

   WriteLn (Copy (t, 1, 7) + Copy (t, 2, 1));

   WriteLn (Copy (t, 4, 1) + Copy (t, 6, 2) + Copy (t, 1, 2) + Copy (t, 8, 4));

   WriteLn (Copy (t, 1, 2) + Copy (t, 10, 1) + Copy (t, 13, 1));

end;