?>
Измените данную программу так, чтобы на экран выводился символ введенного слова, стоящий посередине. (для слов с четным количеством букв - символ справа от середины.) var s: string; n, k: integer; begin writeln('введи слово'); readln(s); n : = length(s); writeln('последний символ - ', s[n]); k : = pos(s[n], s); if k = n then writeln('символ один') else writeln('символ с индексом ', k) end.
Ответы
var
s: string;
n, k: integer;
begin
writeln('Введи слово');
readln(s);
n := length(s);
writeln('Средний символ - ', s[n div 2 + 1]);
end.