Категория
Информатика, опубликовано 29.05.2019 17:44

Pascal abc. добавить лепестки как на фото. код: uses graphabc; procedure stvol; begin setbrushcolor(clgreen); rectangle(198,300,202,100); end; var u, u0,i,j: integer; begin setwindowsize(400,400); stvol; lockdrawing; repeat clearwindow; stvol; setbrushcolor(clred); for j: =1 to 80 do begin u0: =20; for i: =1 to 6 do begin u: =u0 + 40; pie(200,100,j,u0,u); u0: =u+20; sleep(10); redraw; end; end; for j: =1 to 50 do begin u0: =0; for i: =1 to 5 do begin u: =u0 + 50; setbrushcolor(clgreen); pie(200,100,j,u0,u); setbrushcolor(clyellow); if j> 20 then pie(200,100,j-20,u0+5,u-5); u0: =u+20; sleep(10); redraw; end; end; for j: =100 downto 1 do begin u0: =0; clearwindow; setbrushcolor(clwhite); if j> 80 then circle(200,100,j-80); for i: =1 to 5 do begin u: =u0 + 50; setbrushcolor(clgreen); pie(200,100,j,u0,u); setbrushcolor(clyellow); if j> 20 then pie(200,100,j-20,u0+5,u-5); u0: =u+20; sleep(10); end; end; until false; end.

Ответы

Ответ
Ответ оставил: Гость
Выбирай любой:

a := b * power(c, 2);
a := b * sqr(c);
a := b * exp(ln(с)*2) ;
a := b * (c * c);
Ответ
Ответ оставил: Гость
1.- (пишу на питоне)

Либо так


data = list(map(int, input().split()))
 current_minimum = data [0]for i in range(len(data)):
     if data [i] < current_minimum:
       current_minimum = data [i]
print(current_minimum * 7)

Либо так


n = int(input())
k = int(input())
if n < k: 
  n = n * 7  
print(n)
else:
  k = k * 7  print(k)




3.- Этот код корявый, но все что есть, ибо написано все это "на коленке"
for i in range(300):
  if i % 3 == 0:
    print(i) 



Ответ
Ответ оставил: Гость
0,25 Кбайт=256 байт=> 0,25 Кбайт> 200 байт
3 байта= 24 бита, т.к 3 байта= 24 бита
2560 битов < 2,5 Кбайта, т.к 2,5 Кбайта= 20000 бит
1000 Кбайт= 1 Мбайт, т.к 1000 Кбайт=1 Мбайт, а 1 Мбайт=1 Мбайт
8192 байта > 8 Кбайт, т.к 8192 байта= 8,192 Кбайта
Ответ
Ответ оставил: Гость
А) - додати 1, додати 3, помножити на 2, додати 3 = 13
б) - додати 1, додати 3, помножити на 2, помножити на 2 = 20
способів а) - 7
способів б) - 6


Другие вопросы по информатике

✅ Ответов: 2 на вопрос по информатике: Pascal abc. добавить лепестки как на фото. код: uses graphabc; procedure stvol; begin setbrushcolor(clgreen); rectangle(198,300,202,100); end; var u, u0,i,j: integer; begin setwindowsize(400,400); stvol; lockdrawing; repeat clearwindow; stvol; setbrushcolor(clred); for j: =1 to 80 do begin u0: =20; for i: =1 to 6 do begin u: =u0 + 40; pie(200,100,j... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube