uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
PenDown;
OnVector(5,-5);
OnVector(5,5);
OnVector(i,-i);
OnVector(-i,-i);
OnVector(-5,5);
OnVector(-5,-5);
OnVector(-i,i);
OnVector(i,i);
PenUp;
end;
end.
Удивляюсь иногда, как много можно узнать нового, помогая тут!:)
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(33,-20,60); a.Println;
a.Where(t->t>40).Println.Sum.Println
end.
Таблица и логическая схема на рисунках.
2. цивилизация
8. десятичная