Question

1:Дана строка. Определить какой символ находится по середине, если количество символов четное. Если количество символов нечетное, определить какой символ находится справа от середины.
2:напишите программу, которая заменит в заданном тексте из латинских букв все вхождения “ing” на ‘‘ed”
3:напишите программу для решения задачи. Строка представляет собой запись следующего вида «а+/-б». Найти значение выражения. Вместо знака «+/-« может быть знак «+» или знак «стрелочка вниз и вверх какая-то». Числа a и b являются целыми и состоят не более чем из девяти цифр

Answer 1

Ответ:

1 задача

Объяснение:

var s:string;

c:char;

i:integer;

begin

 read(s);

 for i:=1 to length(s) do

 if length(s) mod 2 = 0 then

   c:=s[length(s) div 2]

 else

   if length(s) mod 2 <> 0 then

     c:=s[length(s) mod 2 + 1];

writeln(c);

end.