Question

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

Answer 1

Program integral;

uses crt;

Var
A : string;

Begin
clrscr();
A := 'интеграл';
writeln ('a) ', A [5] + A [7] + Copy (A, 2, 3) + A [8] + A [1]);
writeln ('б) ', A [6] + A [4] + Copy (A, 2, 2) + A [5] + A [4] + A [2]);
writeln ('в) ', A [3] + A [1] + Copy (A, 5, 2));
writeln ('г) ', A [7] + A [5] + A [4] + Copy (A, 2, 2));
readln();
End.