Исходное положение: ГРИС — в левом верхнем углу, на- правление — вниз. Что будет изображено на экране - id1186749320200925 от lihach121 25.09.2020 09:52

Question

Информатика: Исходное положение: ГРИС — в левом верхнем углу, на- правление — вниз. Что будет изображено на экране после выполнения ГРИС следующей программы? нач сделай линия поворот прыжок прыжок поворот сделай линия поворот прыжок поворот шаг поворот шаг кон процедура линия Нач шаг шаг кон

lihach121 · Accepted Answer

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,0,1000); a.Println;
a.Where(t->t.IsEven and (t mod 3 <>0)).Min.Println
end.

Пример
897 808 642 381 727 241 898 600 945 170 613 216 651 884 54 648 94 403 516 509
94

begin
var a:=ArrRandom(30,-50,50); a.Println;
var b:=a.Select(t -> t<0 ? -t : t).ToArray; b.Println
end.

Пример
-35 13 -17 -31 -16 -26 19 -3 -15 50 7 -29 39 1 48 14 7 23 3 -14 -8 -17 -32 -29 -9 28 -4 12 3 5
35 13 17 31 16 26 19 3 15 50 7 29 39 1 48 14 7 23 3 14 8 17 32 29 9 28 4 12 3 5

MOGZ ответил