import turtle
from math import tan, sqrt, pi
def prepare(x, y, color):
turtle.penup()
turtle.goto(x, y)
turtle.pendown()
turtle.color(color)
turtle.begin_fill()
def draw_polygon(num_sides, side_length):
angle = 360.0 / num_sides
for i in range(num_sides):
turtle.forward(side_length)
turtle.right(angle)
turtle.end_fill()
def calc_s(num_sides, side_length):
return num_sides * side_length ** 2 / (4 * tan(pi/num_sides))
def calc_side(square):
return sqrt(4 * square * tan(pi/num_sides) / num_sides)
turtle.hideturtle()
turtle.speed(10)
colors = ['red', 'green', 'blue', 'cyan', 'magenta', 'black', 'yellow', 'pink', 'brown']
xcoords = [0, 150, -150, 150, -150, 270, -270, 270, -270]
ycoords = [0, 150, -150, -150, 150, 270, -270, -270, 270]
squares = []
numsides = []
for i in range(9):
num_sides = i + 3
square = round(calc_s(num_sides, 100), 2)
side_length = round(calc_side(10000), 3)
squares.append(square)
numsides.append(num_sides)
print("Углов:", num_sides, "была площадь:", square, "стала длина грани:", side_length,
"изменение в", round(side_length/100, 2), "раз")
prepare(xcoords[i], ycoords[i], colors[i])
draw_polygon(num_sides, side_length)
turtle.exitonclick()
print("Список количество углов:", numsides, end="")
print("Список площади:", squares)
Объяснение:
Program F1;
var x,y:integer;
begin
x:=10;y:=20;
if x > y then
begin x:=1; y:=2 end
else begin x:=2; y:=1;end;
writeln(x,' ',y);
end. 2 1
Пояснення. Виконуються оператори, що стоять після else, а потім writeln
Program F2;
var x,y:integer;
begin
x:=10;y:=20;
if x < y then
begin x:=1; y:=2 end
else begin x:=2; y:=1;end;
writeln(x,' ',y);
end. 1 2
Пояснення. Виконуються оператори, що стоять після then, а потім writeln
Program F3;
var x,y:integer;
begin
x:=10;y:=20;
if x < y then
begin x:=1; y:=2 end
else x:=2; y:=1;
writeln(x,' ',y);
end. 1 1
Пояснення. Виконуються оператори, що стоять після then, а потім y:=1 та writeln. Оператор y:=1 виконується, бо він не відноситься до else
Program F4;
var x,y:integer;
begin
x:=10;y:=20;
if x < y then
begin x:=1; y:=2 end
else begin x:=2; y:=1; end;
x:=0; y:=0;
writeln(x,' ',y);
end.
ответ
скорость передачи была 1048576 бита
А передача заняла 12 минут.
Объяснение:
1024 Кбит * 1024 = 1048576 бита
1024 кб = 1 Мбит
1 Мбайт = 8192 Кбита
90 Мбайт * 8192 = 737280 Кбита
737280 : 1024 = 720 Секунд = 12 минутам
Надеюсь нигде не ошибся.