Взять 2 миски-взять мешок с зерном-взять зёрнышко-цветное?-да-в серую коробку
|
нет
|
в белую коробку
робот берёт фасолину-цветная?-нет-в белую
|
да
|
в в серую коробку
допустим робот ложит всё внутреннее мешка на стол и когда щупает что ничего на столе нет останавливается!
1)Заливаем полный 3-х л. кувшин
2)Выливаем его в 5 л. кувшин
3)Заливаем полный 3-х л. кувшин
4)Выливаем его в 5 л. кувшин(в 3-х литр. кувшине остается 1л.)
5)Выливаем 5-литр. кувшин
6)Выливаем остатки с 3-х литр. кувшина в 5-литр. кувшин
7)Заливаем полный 3-х л. кувшин
8)Выливаем его в 5 л. кувшин
Все
X(байт)=262144(байт)
Думаю что так.
1-верно
2-неверно
3-<span>верно
4-</span><span>верно
5-</span><span>верно
6-</span><span>верно
7-не</span><span>верно
8-не</span><span>верно
9-</span><span>верно
10-</span><span>верно
11-</span><span>верно
12-не</span><span>верно
13-</span><span>верно
14-</span><span>верно</span>
Например так:
#!/usr/bin/perl
for(1..12){@arr[$_]=int(rand(100))};
print "@arr\n";
print "Write first element:"; chomp($n1=<>);
print "Write second element:"; chomp($n2=<>);
(@arr[$n1], @arr[$n2])=(@arr[$n2], @arr[$n1]);
print "\
[email protected]\n"
Только по хорошему нужна проверка введенных значений еще.