Помогите пожалуйста. 1) Дано слово.Заменить каждый "нечетный" символ на пробел. 2)Дана символьная строка. Определить какая буква встречается раньше: "x" или "e" ? 3) Дана символьная строка . Определить будет ли произведение циф...

Помогите пожалуйста. 1) Дано слово.Заменить каждый "нечетный" символ на пробел. 2)Дана символьная строка. Определить какая буква встречается раньше: "x" или "e" ? 3) Дана символьная строка . Определить будет ли произведение цифр нечетным числом?
Гость
Ответ(ы) на вопрос:
Гость
1) var   s: string;   i: integer;   begin   writeln('Введите слово');   readln(s);   for i:= 1 to length(s) do      if i mod 2 = 1 then s[i]:= ' ';   writeln('Полученная строка:  ', s); end. 2) var   s: string;  {Программа определяет только английские буквы x или e, т.к. в задании указаны английские буквы}   i: integer;   xchar, echar: integer;   begin   writeln('Введите строку');   readln(s);   for i:= 1 to length(s) do   begin     if s[i] = 'x' then xchar:= i;     if s[i] = 'e' then echar:= i;   end;   if xchar < echar then writeln('буква "x" встретилась раньше');   if echar < xchar then writeln('буква "e" встретилась раньше');   if (echar = 0) or (xchar = 0) then writeln('одна из букв "x" или "e" не встретилась'); end. 3-е задание вообще непонятно. Произведение каких цифр? Прошу описать содержание задания подробнее.   
Не нашли ответ?
Ответить на вопрос
Похожие вопросы