Ответы на вопрос:
program raf105;
var s,s1: string;
begin
s: = 'строчка';
s1: = s1 + copy(s,1,1) + copy(s,4,1) + copy(s,3,2) + copy(s,5,3);
writeln(s1);
s1: = '';
s1: = s1 + copy(s,1,1) + copy(s,4,1) + copy(s,3,2) + copy(s,6,2);
writeln(s1);
s1: = '';
s1: = s1 + copy(s,6,2) + copy(s,5,3);
writeln(s1);
s1: = '';
end.
язык pascalabcПопулярно: Информатика
-
HaosG20.12.2020 05:04
-
austimenko29114.10.2021 16:04
-
000009404.08.2020 17:54
-
saimon020.11.2021 20:48
-
IrishkaLis31.01.2023 23:53
-
PashaVershinin28.07.2021 21:42
-
0динокийхомяк18.01.2022 05:22
-
Черный281521.04.2022 23:48
-
Maretoyi1234524.12.2020 10:30
-
Ерко36504.11.2020 13:28