в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8
во 2 случае
y 0 8 14 18 20 20
x 10 8 6 4 2 0
шагов 5, к концу Y=20
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,-100,100); a.Println;
var b:=a.Where(x->(x>0) and (x mod 10=7));
if b.Count>0 then Writeln('Искомое число ',b.Min)
else Writeln('Нет подходящих чисел')
end.
<u>Пример</u>
-5 39 27 94 -50 -3 -73 -18 -36 45 -58 47 45 69 -85 -78 -6 -99 4 -32
Искомое число 27
Итератор цикла k будет принимать значения от 2 до 10 включая, выполнив при этом 10 - 2 + 1 = 9 Операций s:= s + 6, увеличив счетчик s на 6 в общем на 6 * 9 = 54, Ответ: -3 + 54 = 51
алг
нач
нц пока слева свободно
влево
кц
нц пока снизу свободно
вниз
кц
нц пока справа свободно
нц пока (сверху свободно) и (справа свободно)
вправо
вверх
закрасить
кц
нц пока (снизу свободно) и (справа свободно)
вправо
вниз
закрасить
кц
кон
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ReadReal('a =');
Writeln(a,'x = 10');
Writeln('x = ', 10/a);
end.
