Начало
повтори 4 раза
пока справа стена
повтори шаг вперед
конец цикла
закрась клетку
поверни напрво 90
конец
Переваги: більша швидкість інтернету, пінг менше
Недоліки: необхідне додаткове обладнання, кабель
Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
Разделим пазл на квадраты размера 2x2. Заметим, если в каком-нибудь квадрате Маша вынет хотя бы 3 кусочка, то гарантированно найдётся пара кусочков, которые можно состыковать. Значит, в худшем случае она вытащит не более половины всех кусочков, прежде чем появятся соседние. Как так может получиться, показано на рисунке.
Чтобы гарантированно найти пару кусочков, которые состыкуются правильно, ей надо вынуть 18 * 24 / 2 + 1 = 216 + 1 = 217 кусочков.
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>