М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
gordon5
gordon5
27.02.2020 12:50 •  Информатика

Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). составить программу обработки данной строки, выводящую через запятую: слова, которые начинаются и заканчиваются одной и той же буквой и содержат хотя бы одну введенную с клавиатуры букву.

👇
Ответ:
крот521
крот521
27.02.2020
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст: ');
  var c:=ReadlnChar('Введите искомый символ:');
  s.ToWords.Where(w->(w.First=w.Last) and (c in w)).Println(', ');
end.

Примеры
Введите текст:  мой дед носил наган и любил нарзан
Введите искомый символ: а
наган, нарзан

Введите текст:  мой дед носил наган и любил нарзан
Введите искомый символ: и
и, любил
4,5(70 оценок)
Открыть все ответы
Ответ:
260807098978
260807098978
27.02.2020

{Напишите программу, которая находит минимальное и максимальное

среди чётных положительных чисел, записанных в файле,

и выводит результат в другой файл.}

var f:text;

 min, max,a :integer;

 find:boolean;{есть/нет числа удовлетворяющие условию}

begin

 assign(f,'dan.txt'); reset(f);

 min:=0; max:=0;

 find:=false;

 while not eof(f) do

 begin

 read(f,a);

 if not find and (a>0) and (a mod 2=0) then

 begin

  min:=a; find:=true;

 end

 else

 if find and (a>0) and (a mod 2=0) and (min>a) then

  min:=a;

 if (a>0) and (a mod 2=0) and (max<a) then

  max:=a;

 end;

 close(f);

 assign(f,'res.txt');

 rewrite(f);

 if max=0 then writeln(f,'чётных положительных чисел нет')

 else

  writeln(f,'min среди чётных положительных чисел =',min, chr(13),

     'max среди чётных положительных чисел нет',max);

 close(f);

end.

Подробнее - на -

Объяснение:

4,6(57 оценок)
Ответ:
Bihan231
Bihan231
27.02.2020

num = int(input('Кол-во человек: '))

number = int(input('Какое число в считалке? '))

print('Значит, выбывает каждый', number, 'человек.')

mens_list = list(range(1, num + 1))

out = 0

for _ in range(num - 1):

   print('Текущий круг людей', mens_list)

   start_count = out % len(mens_list)

   out = (start_count + number - 1) % len(mens_list)

   print('Начало счёта с номера', mens_list[start_count])

   print('Выбывает человек под номером', mens_list[out])

   mens_list.remove(mens_list[out])

   print()

print('Остался человек под номером', mens_list)

4,7(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ