В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
anyayakubchick
anyayakubchick
08.02.2021 13:02 •  Информатика

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

Показать ответ
Ответ:
vladislavkraso
vladislavkraso
14.06.2020 13:51

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

  

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота