Путем пошаговой детализации составьте программы управления графическим исполнителем для решения следующих задач: 1 расчертить все поле горизонтальными пунктирными линиями;
2 нарисовать квадраты во всех углах поля;

Question

Информатика: Путем пошаговой детализации составьте программы управления графическим исполнителем для решения следующих задач: 1 расчертить все поле горизонтальными пунктирными линиями; 2 нарисовать квадраты во всех углах поля;

2зик20 · Accepted Answer

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

writeln('III');

var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

writeln;

while a.Any() do

begin

write(a[0], ' ');

a.RemoveAt(0);

if not a.Any then break;

write(a.Last, ' ');

a.RemoveAt(a.Count - 1);

if not a.Any then break;

var n := 0;

if a.Count > 1 then n := a.Count div 2 - 1;

write(a[n], ' ');

a.RemoveAt(n);

end;

end.

Объяснение:

MOGZ ответил