aleksandr_mochalov

1. Вот программа, которая определяет, какая из двух фамилий длиннее: ``` program longestSurname; var surname1, surname2: string; begin write('Введите первую фамилию: '); readln(surname1); write('Введите вторую фамилию: '); readln(surname2); if length(surname1) > length(surname2) then writeln('Первая фамилия длиннее: ', surname1) else if length(surname2) > length(surname1) then writeln('Вторая фамилия длиннее: ', surname2) else writeln('Фамилии равной длины.'); end. ``` 2. После выполнения следующих операторов: ``` S1 := 'колонна'; S2 := 'профессор'; K1 := copy(S1, 1, 2); K2 := copy(S1, 6, 2); K3 := copy(S2, 2, 2); S := concat(K1, K3, K2); ``` Значение пер