использовать Рисователь
алг
нач
новый лист(600, 400, белый)
в точку (250,350)
линия в точку (300,75)
линия в точку (350,350)
линия в точку (250,350)
кисть(красный)
окружность(300, 75, 20)
залить(300,250)
в точку (200,350)
линия в точку (100,100)
линия в точку (265,265)
линия в точку (250,350)
линия в точку (200,350)
кисть(синий)
окружность(100, 100, 20)
залить(200,300)
в точку (400,350)
линия в точку (500,100)
линия в точку (335,265)
линия в точку (350,350)
линия в точку (400,350)
кисть(зеленый)
окружность(500, 100, 20)
залить(400,300)
кон
Объяснение:
Смотри картинку
если числа изначально в 10 системе:
array = list(map(int, input().split())); res = 0; res1 = 0 #ввод и переменные
for i in array:
if len(bin(i)[2:]) == 4: res += i; res1 += 1 #пробегаемся по массиву и смотрим подходит ли элемент в двоичном представлении
try:
print(res / res1) #если не было подходящих будет деление на 0, поэтому я использовал try except
except: print(0) #ну если все же подходящих не было выводим 0
если уже в 2:
array = list(map(int, input().split())); res = 0; res1 = 0
for i in array:
if len(str(i)) == 4: res += i; res1 += 1
try:
print(res / res1)
except: print(0)
Вроде бы как-то так
program Project1;
var s,s1,s2:string;
begin
Readln(s);
s1:=copy(s,3,3);
s2:=copy(s,1,2);
delete(s,1,3);
insert(s1,s,1);
insert(s2,s,2);
Writeln(s);
Readln
end.
В принципе можно решить и по другому, но так чисто для меня проще.