1. Составить программу, которая определяет, какая из двух фамилий длиннее. Фамилии имеют разную длину (вывести на экран длинную фамилию).

2. Какое значение будет у переменной S после выполнения следующих операций:

S1:='колонна'; S2:='профессор'; K1:=copy(S1,1,2);

K2:=copy(S1,6,2);

K3:=copy(S2,2,2); S:=concat(K1,K3,K2);

Информатика 9 класс Программирование программа для сравнения фамилий определение длины строки работа с переменными в Паскале операции со строками копирование подстрок конкатенация строк алгоритмы в информатике Новый

Привет! Давай разберёмся с твоими вопросами.

1. Программа, которая определяет, какая из двух фамилий длиннее:

program LongSurname;
var
  surname1, surname2: string;
begin
  write('Введите первую фамилию: ');
  readln(surname1);
  write('Введите вторую фамилию: ');
  readln(surname2);

  if length(surname1) > length(surname2) then
    writeln('Длинная фамилия: ', surname1)
  else
    writeln('Длинная фамилия: ', surname2);
end.

Эта программа попросит ввести две фамилии и выведет ту, которая длиннее. Просто, но эффективно!

2. Значение переменной S после выполнения операций:

• S1:='колонна'; (это строка "колонна")
• S2:='профессор'; (это строка "профессор")
• K1:=copy(S1,1,2); (это будет "ко", потому что мы берём первые 2 символа из "колонна")
• K2:=copy(S1,6,2); (это будет "на", потому что берём символы с 6 по 7 из "колонна")
• K3:=copy(S2,2,2); (это будет "ро", потому что берём символы с 2 по 3 из "профессор")
• S:=concat(K1,K3,K2); (это объединит "ко", "ро" и "на")

В итоге, значение переменной S будет "корона".

Если что-то непонятно, спрашивай! Всегда рад помочь!