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

Вася придумал робота-шифратора, и сейчас пишет для него программы. шифратор работает со строками. до сегодняшнего дня робот умел выполнять только команду cut(x), она означает, что нужно взять поданную на вход роботу строку, разрезать ее пополам после символа с номером x, символы второй части записать в обратном порядке, затем две части переставить местами и склеить обратно в целую строку (символы строки нумеруются слева направо начиная с 1). например, если робот работает со строкой алгоритм и выполняет команду cut(4), то результатом его работы будет строка мтиралго. если после этого робот выполнит команду cut(1), то получится строка огларитм. сегодня вася написал новую команду mcut. например, mcut(4, 1, 3) означает, что робот сначала выполняет команду cut(4), затем для получившейся строки команду cut(1), затем для получившейся строки команду cut(3). на вход роботу подали строку абвгдежз, после чего он выполнил команду mcut(3, 7, 6, 5, 1) 2018 раз подряд (после первого выполнения команды mcut вторая выполняется для полученной строки и так далее). какая строка в итоге получилась?

Показать ответ
Ответ:
2da0s0ha21
2da0s0ha21
14.11.2022 09:19

USES CRT;

VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;

BEGIN

ClrScr;

     ReadLn(n);

  m1:=n;

   n1:=m1 div 100;

   n2:=m1 mod 10;

   n3:=(m1-n1*100-n2) div 10;

 if n1=n2 then if n1=n3 then writeln('vse =');

 if n1=n2 then writeln('1 i 3 =');

 if n2=n3 then writeln('2 i 3 =');

 if n1=n3 then writeln('1 i 2 =')

 else writeln('<>');

 END.

Проверяйте, что непонятно - спрашивайте.

Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.

Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)

Всего хорошего.

0,0(0 оценок)
Ответ:

НОВОСТИ

ИСТОРИИ

ШКОЛА

СПУТНИК

ПРОЕКТЫ

КЫРГЫЗЧА

ЎЗБЕКЧА

Что такое коронавирус, и почему о нем все говорят?

От Камила Баймуратова -  25 января 2020

Facebook  Twitter  VK  Telegram

Уже несколько недель китайские власти пытаются сдержать рас опасного и ранее неизвестного вируса, обозначенного Всемирной организацией здравоохранения как «2019-nCoV» или «коронавирус Уханя». На сегодняшний день от болезни погиб 41 человек, насчитывается более 1300 случаев заражения.

Медработники доставляют инфицированных в больницу в Уханье 17 января. Фото: Getty Images, лицензия Creative Commons

Очагом рас атипичной пневмонии, вызванной новым типом коронавируса, стал город Ухань в провинции Хубэй, с населением более 11 млн человек.

Для того, чтобы остановить рас болезни, власти Китая 22 января закрыли Ухань на карантин. 23 января карантин был введен в городе Хуангана, с населением в 7 млн человек, позже еще 8 городов были закрыты – отменены все поезда и самолеты, а также внутригородской транспорт.

Несмотря на то, что сегодня, 25 января, в Китае отмечают Новый год, были отменены многие массовые праздничные мероприятия.

Почти все случаи заражения новым вирусом зафиксированы на территории Китая, однако заболевшие выявлены и в других странах, в том числе в Таиланде, Вьетнаме, Сингапуре, Японии, Малайзии, Южной Корее, Тайване, Непале, Франции, Соединенных Штатах и Австралии.

Более того, первые случаи заболевания коронавирусом 24 января уже были зафиксированы в Европе, власти Франции сообщили о двух заболевших — в Бордо и Париже.

По информации Всемирной организации здравоохранения, первые сообщения о вспышках неизвестного вируса в Китае появились 31 декабря 2019 года, однако первые симптомы у заболевших возникли еще раньше — 8 декабря 2019 года.

Коронавирус и Кыргызстан

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

Директор департамента профилактики заболеваний и экспертизы Минздрава Толо Исаков 22 января сообщил о том, что в Кыргызстане на всех пропускных пунктах на границе с Китаем в Ошской и Нарынской областях и в аэропорту «Манас» установлены тепловизоры для проверки на наличие коронавируса. Также термометрия работает в аэропорту Оша.

По его словам, тепловизоры могут на расстоянии определить людей с повышенной температурой и подозрением на инфекционные заболевания.

«Всемирная организация здравоохранения пока не вводит ограничительные меры ни в одной стране. Также еще точного заявления не было, отчего вирус передается. Сообщалось, что вирус передается от человека к человеку. Однако ВОЗ официального заявления не делала», – сказал он.

Исаков отметил, что во о вирусе «находится под контролем», а для врачей проводят дополнительные обучающие семинары о гриппе, ОРЗ, ОРВИ и коронавирусах.

Также 23 января в Министерстве здравоохранения встреча министра здравоохранения Космосбека Чолпонбаева с послом Китайской Народной Республики госпожой Ду Дэвэнь по ситуации с коронавирусом.

Объяснение:

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