<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a[::-1].Println
end.
45 секунд - 3/4 минуты, а значит за это время можно передать 4000Кб*(3/4)=3000Кб
1.<span>Три базовых цвета- Red, Green, Blue. На каждый по два бита - получается по 4 бита градации на цвет. того 4*4*4= всего 64</span>
Ответ:
1.
uses Robot;
begin
Task('w3');
while wallfromdown do right
end.
2.
uses Robot;
begin
Task('w8');
while wallfromdown do right;
left;
while wallfromdown do
begin
paint;
left
end
end.
Схема
1)Количество монет в куче равно 1?
1a) Да, то это фальшивая монета выход
1b) Нет перейти к 2
2) разделим кучу поровну. перейти к 3
3)Правая куча тяжелее левой?
3a) Да, отложить правую и вернуться в (1)
3b) Да, отложить левую и вернуться в (1)
Можно еще добавить условия в случае если ее там нет
-1) разделим кучу на две поровну. перейти к 0
0) Кучи равны?
0а) Да, Выход нет фальшивой маеты
0b)Нет, перейти к 3
1)Количество монет в куче равно 1?
1a) Да, то это фальшивая монета выход
1b) Нет перейти к 2
2) разделим кучу на две поровну. перейти к 3
3)Правая куча тяжелее левой?
3a) Да, отложить правую и вернуться в (1)
<span>3b) Да, отложить левую и вернуться в (1)
Все гениальное просто:)</span>