Помогите пожалуйста. 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-е задание вообще непонятно. Произведение каких цифр? Прошу описать содержание задания подробнее.
Не нашли ответ?
Похожие вопросы