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

При наполнении страниц сайта информационными материалами следует придерживаться следующих рекомендаций: Не пишите слишком коротких текстов. Текст разбивайте на большие абзацы, не отделяя их друг от друга пустыми строками.
Названия пунктов меню делайте длинными.
Выбирайте для страниц пёстрый фон.
Не выбирайте для страниц пёстрый фон, на таком фоне текст читается с трудом.
Названия пунктов меню делайте краткими; недопустимо растягивание названия пункта на несколько строк.

Показать ответ
Ответ:
qooperty
qooperty
20.05.2023 05:47

Фрагмент записан верно.

1.

Полный код:

arr = [i for i in range(9)]

print(arr)

a = arr[2]

arr[2]=arr[8]

arr[8]=a

print(arr)

2. В Python третья переменная нам не нужна для перестановки местами элементов списка, мы можем намного проще сделать. А если говорить про все остальные языки, то без третьей переменной мы не сможем никак иначе обменять значения элементов массива. Например: Хотим мы найти максимум и переставить его на 5 позицию, без 3 переменной нам никак не обойтись.

3.

i_max - индекс максимального элемента

i_min - индекс минимального элемента

arr - наш список

Наш фрагмент кода выглядит так:

arr[i_max], arr[i_min] = arr[i_min], arr[i_max]

0,0(0 оценок)
Ответ:
ДевочКаНауКи
ДевочКаНауКи
19.10.2022 08:20
Var
  s, w: string;
  i, X, n, k, p, q: integer;

begin
  Writeln('Введите фразу, разделяя слова ровно одним пробелом');
  Readln(s);
  Write('Введите номер слова для поиска: '); Readln(X);
  {
  Ищем в строке s местоположение слова номер Х.
  Его начальную позицию в строке обозначим p, а конечную - q
  }
  n := Length(s);
  i := 1; k := 0; p := 0; q := 0;
  repeat
    if s[i] = ' ' then
    begin
      Inc(k);
      if k = X - 1 then p := i + 1
      else if k = X then q := i - 1
    end;
    if q = 0 then i := i + 1
  until (q > 0) or (i > n);
  if (p = 0) then Writeln('Количество слов в строке меньше ', X)
  else if q = 0 then q := n;
  w := Copy(s, p, q - p + 1);
  if (Pos('а', w) > 0) or (Pos('о', w) > 0) then
    Writeln('Одна из букв (а,о) есть в слове "', w, '"')
  else Writeln('В слове "', w, '" нет ни буквы а, ни буквы о')
end.

Тестовое решение:
Введите фразу, разделяя слова ровно одним пробелом
Самая лучшая рыба- это колбаса!
Введите номер слова для поиска: 5
Одна из букв (а,о) есть в слове "колбаса!"

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