Question

Дана строка. Вывести первый, последний и средний (если он есть)) символы.НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ.ПОЖАЛУЙСТА ОЧЕНЬ НАДО

Answer 1

Var s:string; l:integer;
begin
write('Введите строку: ');
readln(s);
writeln('Первый символ: ',s[1]);
l:=length(s);
writeln('Последний символ: ',s[l]);
if l mod 2 = 1
 then writeln('Средний символ: ',s[l div 2+1])
 else writeln('Длина строки четна');
end.

Пример:
Введите строку: ПАСКАЛЬ
Первый символ: П
Последний символ: Ь
Средний символ: К

Answer 2

Конечно, я могу помочь написать программу на Pascal, которая выводит первый, последний и средний символы из заданной строки. Вот пример кода:

pythonCopy code
program FirstLastMiddleChar;

var
  str: string;
  len, mid: integer;

begin
  write('Введите строку: ');
  readln(str);
  
  len := length(str);
  mid := len div 2;
  
  writeln('Первый символ: ', str[1]);
  
  if len mod 2 = 0 then
    writeln('Нет среднего символа')
  else
    writeln('Средний символ: ', str[mid+1]);
    
  writeln('Последний символ: ', str[len]);
  
end.

Программа запрашивает у пользователя ввод строки, затем находит длину строки и середину строки (если строка имеет нечетную длину). Затем программа выводит первый символ, а затем проверяет, есть ли средний символ в строке, и выводит его (если есть). Наконец, программа выводит последний символ.

Надеюсь, это помогло!