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

76 ПРАКТИЧНА РОБОТА № 3 «Побудова інформаційних моделей у різних програмних середовищах» Увага! Під час роботи з комп'ютером дотримуйтеся вимог безпеки життєді. яльності та санітарно-гігієнічних норм. Завдання. Створіть інформаційну модель для вивчення вимірювальних приладів на уроках фізики. 1. Зобразіть у текстовому процесорі структурну модель для вивчення вимірюваль- них приладів. Відобразіть у моделі призначення приладів (для вимірювання часу: метроном, секундомір, годинник; для вимірювання лінійних розмірів: лі- нійка; для вимірювання об'єму: мензурка), їхні назви, одиниці вимірювання від- повідних фізичних величин. Збережіть отриманий документ у вашій папці у фай- лi з іменем практична 3.docx. 2. Створіть презентацію Вимірювальні прилади: 1. Розмістіть на першому слайді заголовок Вимірювальні прилади та підзаголо- вок - ваше прізвище та ім'я. 2. Скопіюйте з текстового документа структурну модель вимірювальних прила- дів і вставте її на другий слайд презентації. 3. На третьому слайді презентації створіть математичну модель для визначення кількості секунд в інтервалі часу, якщо відома його тривалість як сума годин і хвилин. 4. Збережіть отриману презентацію у вашій папці у файлі з іменем практич- на 3.pptx. 7 клас памагите

Показать ответ
Ответ:
Adilkin
Adilkin
31.01.2021 19:10
uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k>1 then m:=m+[c];  end; if m=[] then write('Нет букв, встречающихся более 1 раза') else  for c:='a' to 'z' do  if c in m then write(c) end.
0,0(0 оценок)
Ответ:
nikzyryanov02
nikzyryanov02
02.04.2020 11:30

Вот код:

a = list(map(int, input().split()))

b = []

c = []

def schot(a):

   count = 0

   for i in range(5):

       for j in a:

           if j == 2 * i:

               count += 1

   if count != 1:

       return True

   else:

       return False

while schot(a):

   b.append(max(a))

   a.pop(a.index(max(a)))

for i in range(5):

   for j in a:

       if j == 2 * i:

           c.append(j)

           a.pop(a.index(j))

           break

while a != []:

   b.append(max(a))

   a.pop(a.index(max(a)))

b.append(c[0])

for i in b:

   print(i, end="")

Объяснение:

Его смысл в том что есть функция проверяющая кол-во четных цифр в массиве всех цифр а и потом если там больше одной четной цифры то он берет наибольшую цифру и ставит ее на последнее место в массиве б, ну а если осталась одна четная цифра то код убирает эту цифру и продолжает набор цифр без нее и под конец закидывает ее чтобы получилось четное число :)))

P.S. тоже в Сириус?))

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