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

Python как сделать игнорирование клавиш на питоне в библиотеке TKinter (сам код)

к примеру клавишу Tab

👇
Открыть все ответы
Ответ:
Фейз
Фейз
06.04.2022

Ей, жарық күн, нұрыңды шаш далама,

шаш нұрыңды қарттарға, жас балаға,

ызғар сіңген жеріме шуақ керек,

мұқтаж оған ауыл да, астана да.

Сәулеңменен себеле үміт демін,

жер бетінен жылыссын күдіктерім.

Адамдардың сатқындық, сұмдығынан

қалжыраған жерімді жібіт менің.

Күңгірттенбей, көтерсін шыңым басын,

қарттарымның ұзартқын ғұмыр жасын.

Қорқыныш пен үрей жер кеуделерде,

қу бәрін де — соңына бұрылмасын!

Кетсін тағы шарықтап алысқа үнім,

қонақтасын ырыс пен табыс күнім.

Ұл-қыздары көтерсін қол ұстасып

қазағымның елдік пен намыс туын.

Жарқырасын шуақ боп алғашқы үміт,

жүректерді жүрекпен жалғастырып.

Адамзатқа бірлік бер, тыныштық бер –

ынтымақтан туындар бар жақсылық!

4,4(51 оценок)
Ответ:
Аноним9111
Аноним9111
06.04.2022
Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

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