<span>moveForward();
turnLeft();
moveForward();
turnRight();
moveForward<span>(); 2-й уровень
</span></span>
Оба опыта одинаковы между собой. Но второй опят более треднее определить, поэтому он будет более неопределёным.
<u>// PascalABC.NET 3.4, сборка 1766 от 25.08.2018</u>
begin
var n := ReadInteger('n->');
var (k, m) := (n mod 3, n div 3);
Println(k<=1?$'{m} {m} {n-2*m}':$'{m} {m + 1} {m + 1}');
end.
Program _1;
var
dollar,euro,rub:real;
begin
writeln('Введите сумму в рублях');
readln(rub);
dollar:=rub/57;
euro:=rub/68;
writeln('Курс рубля в долларах: ',dollar);
writeln('Курс рубля в евро: ',euro);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger;
var a:=ReadArrInteger(n);
var k:=n div 2;
a:=(a[:k].OrderBy(t->t)+a[k:].OrderByDescending(t->t)).ToArray;
a.Println
end.
<u>Пример</u>
6
3 2 1 4 5 6
1 2 3 6 5 4