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

Прапор Нідерландів мовою Python​

👇
Ответ:

from tkinter import *

root=Tk()

root.geometry("400x287")

root.title("флаг нидерландов")

c1=Label(root, background="red", width=70, height=6)

c1.grid(column=0, row=0)

c2=Label(root,bg="white", width=70, height=6)

c2.grid(column=0, row=1)

c3=Label(root, background="blue", width=70, height=6)

c3.grid(column=0, row=2)

root.mainloop()

Объяснение:

Сделал с библиотеки tkinter. Если что-то непонятно, пиши)

4,8(2 оценок)
Открыть все ответы
Ответ:
KatyushaLis77
KatyushaLis77
02.02.2020
Private Sub Command1_Click()
Form1.Shape1.Visible = True
Form1.Shape2.Visible = True
Form1.Shape3.Visible = True
Form1.Shape4.Visible = True
Form1.Shape5.Visible = Falce
Form1.Shape6.Visible = Falce
Form1.Shape7.Visible = Falce
Form1.Shape8.Visible = Falce
End Sub
Private Sub Command2_Click()
Form1.Shape5.Visible = True
Form1.Shape6.Visible = True
Form1.Shape7.Visible = True
Form1.Shape8.Visible = True
Form1.Shape1.Visible = Falce
Form1.Shape2.Visible = Falce
Form1.Shape3.Visible = Falce
Form1.Shape4.Visible = Falce
End Sub
4,4(71 оценок)
Ответ:
заушкина
заушкина
02.02.2020
1)Немного не понял фразу "меньше данного числа 2". Если найти сумму всех элементов, которые меньше двух в массиве размером 20 элементов, то это 

var s,i:longint;
m:array[1..100] of integer;
begin
for i:=1 to 20 do
 read(m[i]);
s:=0;
for i:=1 to 20 do
 if m[i]<2 then s:=s+m[i];

writeln(s);
end.
2)
var i:longint;
m:array[1..100] of integer;
begin
for i:=1 to 20 do
read(m[i]);

for i:=1 to 20 do
if (m[i] mod 5=3) then writeln(m[i]);
end.

3) var a,b,i:longint;
m:array[1..100] of real;
begin
read(a);
read(b);
for i:=1 to 20 do
read(m[i]);
for i:=1 to 20 do
if (m[i]>=a) and (m[i]<=b) then writeln(i);
end.

4)var
o,s,i:longint;
m:array[1..100] of integer;
begin
for i:=1 to 20 do
begin
read(m[i]);
s:=s+m[i];
end;

o:=s div 20;

for i:=1 to 20 do
if m[i]>o then writeln(m[i]);
end.
 
прощения, если есть ошибки в синтаксисе. Нет возможности проверить в компиляторе
4,7(4 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ