logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
jonlir
jonlir
17.09.2021 14:46 •  Информатика

Python 3,tkinter .Как сделать так, чтобы при нажатии на кнопку выводилось изображение в окне tkinter
Как сделать так, чтобы при нажатии на кнопку выводилось изображение в окне tkinter

👇
Увидеть ответ
Ответ:
р5553
р5553
17.09.2021

ксожилению ю гне знаюгк

4,6(36 оценок)
Ответ:
Aleks2281338
Aleks2281338
17.09.2021

В летнем лагере отдыхало 85 семиклассник(-ов, -а).

7 из них не любят компьютерные игры. 54 семиклассник(-а, -ов) предпочита(-ют, -ет) квесты, 62 — симуляторы. Сколько ребят с одинаковым удовольствием играют и в квесты, и в симуляторы?В одном множестве 14 элемент(-ов, -а), а в другом — 166. Какое максимальное количество элементов может быть в их объединении?

4,4(56 оценок)
Открыть все ответы
Ответ:
ната12354
ната12354
17.09.2021
{1}

const
 n = 5;
var
 a: array [1..n] of integer;
 i,k,x,l: integer;
 t: boolean;
begin
 for i := 1 to n do read(a[i]);
 k := 0;
 for i := 1 to n do
  begin
  t := true;
  x := a[i]; if x < 0 then x := -x;
  l := 1;
  while l <= x do l := l*2; l := l div 2;
  while t and (l > 1) do
    begin
    t := x >= l;
    if t then x := x - l;
    t := t = (x mod 2 <> 0);
    x := x div 2;
    l := l div 4;
    end;
  if t then k := k + 1
  end;
 write(k)
end.

{2}

const
 n = 10;
var
 a,d: array [1..n] of integer;
 i,j,k: integer;
begin
 for i := 1 to n do
  a[i] := 100 + random(900);
 for i := 1 to n do
  begin
  d[i] := 0;
  for j := 1 to a[i] do
    if a[i] mod j = 0 then
    d[i] := d[i] + 1;
  end;
 for i := 1 to n-1 do
  begin
  k := i;
  for j := i + 1 to n do
    if d[j] < d[k] then k := j;
  j := a[k];
  a[k] := a[i];
  a[i] := j;
  j := d[k];
  d[k] := d[i];
  d[i] := j;
  end;
 for i := 1 to n do
  write(a[i],' ')
end.

{3}

const
 n = 10;
 l = 3;
var
 a: array [1..n] of integer;
 m: array [1..l] of integer;
 i,j,k: integer;
begin
 for i := 1 to n do
  begin
  a[i] := random(1001);
  write(a[i],' ')
  end;
 writeln;
 for i := 1 to l do
  m[i] := -1;
 for i := 1 to n do
  begin
  j := 1;
  while j <= l do
    begin
    if (a[i] = m[j]) then j := l else
    if (a[i] < m[j]) or (m[j] = -1) then
      begin
      for k := l downto j+1 do
        m[k] := m[k-1];
      m[j] := a[i];
      j := l
      end;
    j := j + 1
    end;
  end;
 for i := 1 to l do
  if m[i] <> -1 then write(m[i],' ')
end.
4,7(8 оценок)
Ответ:
borovitskii2014
borovitskii2014
17.09.2021
Var
  i,n,h,m,d,r:integer;
begin
  Write('Количество детей: '); Read(n);
  Write('Высота забора: '); Read(h);
  Writeln('Вводите через пробел рост детей (мальчиков - с минусом');
  m:=0; d:=0;
  for i:=1 to n do
  begin
    Read(r);
    if (r<0) and (-r>h) then Inc(m)
    else
      if r+10>h then Inc(d)
  end;
  Writeln('Видно мальчиков- ',m,', девочек- ',d)
end.
 
Контрольное решение
Количество детей: 8
Высота забора: 112
Вводите через пробел рост детей (мальчиков - с минусом
-119 -124 118 107 -115 113 -111 105
Видно мальчиков- 3, девочек- 4
4,8(6 оценок)
Это интересно:
К
Как переустановить драйвера беспроводного адаптера: подробная инструкция...
К
Как смотреть бесплатные фильмы на iPad: лучшие способы и сервисы...
Т
Транспорт
12.05.2020
Как подготовить гидроцикл к зимнему хранению...
К
Создание онлайн веб каста с помощью Windows Media Encoder...
Т
Транспорт
14.01.2023
Как избежать аварий на дороге...
К
Как добавить кнопку Facebook на свой сайт: шаг за шагом...
К
Как скачать приложения на Android: пошаговая инструкция для начинающих...
07.06.2020
Отличный способ провести каникулы - морское путешествие! Как правильно подготовиться к нему?...
Х
Как быстро размягчить пластилин Playdough: 5 простых способов...
К
Узнай, как сделать невероятно вкусный и загадочный мартини драгон...
Новые ответы от MOGZ: Информатика
влад2306
влад2306
13.05.2021
:напишите программу на паскале: дано действительное число x. вычислить: x - x³/3! + x^5/5! - x^7/7! + x^9/9! - x^11/11! + x^13/13! проходим циклы, с заданным числом повторений....
PavelKyiv
PavelKyiv
23.04.2020
На пеньках расположись животные: лиса, волк, и три зайчонка: белый, серый и чёрный. один пенёк остался свободным. но лисе не нравится её место, и она попросила волка поменяться...
АсяБру
АсяБру
07.04.2022
Даны действительные числа x, y. меньшее из этих двух чисел заменить их среднеарифметическим, а большее их удвоенным произведением. разработать алгоритм решения...
DARKxSHADOWxYT
DARKxSHADOWxYT
01.03.2021
Черно-белое растровое графическое изображение имеет размер 20х20 точек какой объем памяти займёт это изображение решите быстрее ! ​...
Ксю11111111147
Ксю11111111147
11.01.2023
Python: написать программу ввода и вывода значений следующих переменных: a, b, n, s, d, st, rm...
sofaaa77
sofaaa77
22.08.2020
Benone B TETTE 1. Запиши основные термины, о которых ты узнална урока Термины Функции 12​...
denbulking
denbulking
25.08.2020
Фигуры куб, прямоугольник и круг объединены в группу. Что произойдет, если инструментом «Заливка» (цвет: зеленый) сделал щелчок по прямоугольнику рядом с буквой «В»?  закрасится...
maksot2006ox6gx2
maksot2006ox6gx2
01.11.2021
Сделайте одно из двух заданий. На python только ​...
ezdinaa
ezdinaa
24.01.2022
решить ,только ТАБЛИЧКУ(164 номер)...
Alya9let
Alya9let
25.04.2022
Придумати гру (щоб не важко було зробити ) в Скретчі . Просто придумати сценарій до гри. ​...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ