помогите пожалуйста. 1) Дано слово.Заменить каждый "нечетный" символ ** пробел. 2)Дана...

0 голосов
53 просмотров

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


Информатика (17 баллов) | 53 просмотров
Дан 1 ответ
0 голосов

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

  

(2.1k баллов)