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

Напишите программу в питоне, чтобы нарисовать !

👇
Ответ:
alexc123
alexc123
28.01.2021

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

uses crt,graphABC;

var x,y: integer;

begin

setwindowsize(500,500);

hidecursor;

lockdrawing;

x:=250; y:=250;

setbrushcolor(clyellow);

setpenwidth(4);

repeat

clearwindow(clskyblue);

setpencolor(clyellow);

line(x-100,y,x+100,y);

line(x,y-100,x,y+100);

line(x-95,y-20,x+95,y+20);

line(x+95,y-20,x-95,y+20);

line(x-20,y-95,x+20,y+95);

line(x+20,y-95,x-20,y+95);

 

line(x-90,y-40,x+90,y+40);

line(x+90,y-40,x-90,y+40);

line(x-40,y-90,x+40,y+90);

line(x+40,y-90,x-40,y+90);

 

line(x-80,y-60,x+80,y+60);

line(x+80,y-60,x-80,y+60);

line(x-60,y-80,x+60,y+80);

line(x+60,y-80,x-60,y+80);

circle(250,250,60);

 

sleep(150);

redraw;

 

clearwindow(clskyblue);

setpencolor(clred);

line(x-100,y,x+100,y);

line(x,y-100,x,y+100);

line(x-95,y-20,x+95,y+20);

line(x+95,y-20,x-95,y+20);

line(x-20,y-95,x+20,y+95);

line(x+20,y-95,x-20,y+95);

 

line(x-90,y-40,x+90,y+40);

line(x+90,y-40,x-90,y+40);

line(x-40,y-90,x+40,y+90);

line(x+40,y-90,x-40,y+90);

 

line(x-80,y-60,x+80,y+60);

line(x+80,y-60,x-80,y+60);

line(x-60,y-80,x+60,y+80);

line(x+60,y-80,x-60,y+80);

setpencolor(clyellow);

circle(250,250,60);

 

sleep(150);

redraw;

until keypressed;

end.

Объяснение:

4,8(75 оценок)
Открыть все ответы
Ответ:
alina2000klimenko
alina2000klimenko
28.01.2021

кст песни(слова) нурминский - купить бы джип



все тексты песен(слова) нурминский

[припев]:

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

[куплет 1, нурминский]:

квартала эти улицы -

разбитые машины, люди губятся.

дурью травятся.

не предлагайте ничего. куда всё катится?

братишка, подготовь-ка мне номера адвокатов;

так, на всякий случай; так, от всяких гадов.

сегодня на районе, сегодня я закатан.

желаю видеть никого! желаю лишь закаты.

опять эти менты (с*ки)

шухер, убери! разбег, пацаны.

и беги! беги, куда не важно.

один же привод был, тебе нельзя ведь дважды.

(нет, нет, нет)

опять придётся отмечаться пацанам,

чьим подвигам не быть сбываться.

кому-то дома, с отчимом ругаться.

отче наш - спаси! как перестать боятся?

[припев]:

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

[куплет 2, нурминский]:

отдайте молодым этот дым -

всем, кто нуждается! всем, кто ругается.

не думал ли братёк, ты покаяться?

скажешь не грешил? да нет - тебе кажется.

ты пока-пока, ты пока-покажи-ка мамка

куда запрятала травматку.

братишке вечером несладко.

пойду и порешаю! не включу обратку.

и пусть простят же нас эти небеса -

за наши, за наши деяния.

вдруг вся родня идут делить наследный дом.

молодые вдовы, ну а потом -

люди болеют, смс-кой поддержи -

протяни руку .

и сколько ждать? да, я скорее улечу.

не надо мне летать! я просто хочу.

[припев]:

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

купить бы джип бронированный, 

весь заряженный, тонированный.

чтобы не лезла нечисть, не видеть суеты -

ли полумесяцы, кресты?

дополнительная информация

текст песни нурминский - купить бы джип.

автор текста: альберт шарафутдинов.

ноябрь 9, 2018

4,6(45 оценок)
Ответ:
семон1
семон1
28.01.2021

В общем, это то же самое, что и для максимального, только вначале ты присваиваешь переменной min значение первого числа последовательности, а потом сравниваешь с этим числом все остальные. Смотри:

 

В Паскале:

Var a, i, mix, N: integer;

Begin

 Write ('Введите количество чисел в последовательности '); readln (N);

 Write ('Введите первое число последовательности '); readln (a);

 min:=a;

 for i:=1 to N do

 begin

  Write ('Введите следующее число последовательности '); readln (a);

  if (a mod 3 = 0) and (a<min) then min:=a;

 end;

 Writeln ('Минимальное число, кратное 3 в последовательности равно ', min);

End.

 

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