Измените данную программу так, чтобы на экран выводился символ введенного слова, стоящий посередине. (Для слов с четным количеством букв - символ справа от середины.)
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.
Ответы
Ответ дал:
3
var
s: string;
n, k: integer;
begin
writeln('Введи слово');
readln(s);
n := length(s);
writeln('Средний символ - ', s[n div 2 + 1]);
end.
nikitakazakorg:
Дай бог тебе здоровья
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад