4. определите верную запись доменного имени сервера в интернете: а) ru.it.klyb б) it.klyb.ru в) ru.klyb.it г) it.ru.klyb . 7. у исполнителя квадратик две команды, которым присвоены номера: 1. сложи 1 2. возведи в квадрат дано число 5. запишите ответ после выполнения команд 21112 исполнителем квадратик. а) 729 б) 652 в) 900 г) 784 . 10. из «черного ящика» вынимают шарики с номерами, и известно, что информационное сообщение о номере шарика несёт 3 бита информации. определить количество шариков в «черном ящике». ответ:

4. Б
7. 5 -> 25 -> 26 -> 27 -> 28 -> 784 (Г)
10. M = 2 в степени i, где i - это кол-во бит на символ ответ: 8

Объяснение:

i=1

while(i<11):

if(i==1):

print(f"Факторіал {i} дорівнює 1 ")

elif(i==2):

print(f"Факторіал {i} дорівнює 2 ")

elif(i==3):

print(f"Факторіал {i} дорівнює 6 ")

elif(i==4):

print(f"Факторіал {i} дорівнює 24 ")

elif(i==5):

print(f"Факторіал {i} дорівнює 120 ")

elif(i==6):

print(f"Факторіал {i} дорівнює 720 ")

elif(i==7):

print(f"Факторіал {i} дорівнює 5040 ")

elif(i==8):

print(f"Факторіал {i} дорівнює 40360")

elif(i==9):

print(f"Факторіал {i} дорівнює 363240")

elif(i==10):

print(f"Факторіал {i} дорівнює 3632400 ")

i=i+1

Var

День,месяц:byte;

Begin

Write('№ дня = ');ReadLn(День)

Var C: = 365 - День

Write('№ месяца = ');ReadLn(Месяц);

Case Месяц of

2:C:=C-31;

3:C:=C-59;

4:C:=C-90;

5:C:=C-120;

6:C:=C-151;

7:C:=C-181;

8:C:=C-212;

9:C:=C-243;

10:C:=C-273;

11:C:=C-304;

12:C:=C-334

End;

if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')

else

Case C mod 10 of

1:Write('До нового года остался ',C,' день');

2..4:Write('До нового года осталось ',C,' дня');

0,5..9:Write('До нового года осталось ',C,' дней')

End

End.