Строка 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 равна “ДЕЙСТВИТЕЛЬНОСТЬ”. Написать алгоритм (программу) составления слов: ДЕЙСТВИЕ СВИДЕТЕЛЬ ДЕЛО
More Questions From This User See All
Answers & Comments
Verified answer
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;