profile
Опубликовано 5 лет назад по предмету Информатика от matvienko83

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

  1. Ответ
    Ответ дан fedrfedr

    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.