Question

Информатика 9 класс. Составить программу нахождения средней буквы в слове. В Паскале.

Answer 1

var

 Word: string;

 i: Integer;

begin

 Write ('Введите слово: ');

 Read (Word);

 if (Length (Word) mod 2) <> 0 then begin         // проверка на нечетность количества букв

   i := (Length (Word) div 2) + 1;              // i = индекс средней буквы

   WriteLn ('Средняя буква = "', Word [i], '"');

 end else begin

   WriteLn ('Слово состоит из четного количества букв');

 end;

end.