Какой шаблон рекомендуется выбрать перед началом работы? Простой шаблон, метры

Простой шаблон, футы и дюймы

Архитектурное проектирование,футы

Архитектурное проектирование, миллиметры​

a)

1. 5

2. 10

3. 15

4. 20

5. 25

6. 30

7. 35

8. 40

б)

1.  -1

2.  2

3.  1

4.  4

5.  3

6.  6

7.  5

8.  8

Объяснение:

a) for i:=1 to 8 do a[i]:=i*5 - элемент равен значению индекса элемента (i) умноженного на 5

i = 1

a[1] = 1 * 5 = 5

i = 2

a[2] = 2 * 5 = 10

i = 3

a[3] = 3 * 5 = 15

i = 4

a[4] = 4 * 5 = 20

i = 5

a[5] = 5 * 5 = 25

i = 6

a[6] = 6 * 5 = 30

i = 7

a[7] = 7 * 5 = 35

i = 8

a[8] = 8 * 5 = 40

б) for i:=1 to 8 do  if i mod 2=0 then a[i]:=i else a[i]:=i-2 - если индекс элемента чётный, то элемент равен своему индексу, иначе (индекс элемента нечётный) элемент равен индекс минус 2

i = 1

1 mod 2 = 0   (НЕТ)

a[1] = 1 - 2 = -1

i = 2

2 mod 2 = 0   (ДА)

a[2] = 2

i = 3

3 mod 2 = 0   (НЕТ)

a[3] = 3 - 2 = 1

i = 4

4 mod 2 = 0   (ДА)

a[4] = 4

i = 5

5 mod 2 = 0   (НЕТ)

a[5] = 5 - 2 = 3

i = 6

6 mod 2 = 0   (ДА)

a[6] = 6

i = 7

7 mod 2 = 0   (НЕТ)

a[7] = 7 - 2 = 5

i = 8

8 mod 2 = 0   (ДА)

a[8] = 8

Var
  count, i, d1, d2, d3, d4, d5, d6: integer;
const
  MIN = 189980;
  MAX = 205505;
begin
  count := 0;
  for i := MIN to MAX do
    begin
      d1 := i div 100000;
      d2 := i mod 100000 div 10000;
      d3 := i mod 10000 div 1000;
      d4 := i mod 1000 div 100;
      d5 := i mod 100 div 10;
      d6 := i mod 10;
      if ( (d6 * 100000) + (d5 * 10000) + (d4 * 1000) + (d3 * 100) + (d2 * 10) + d1 ) = i 
      then
        count := count + 1;
    end;
  writeln('в промежутке от ', MIN, ' до ', MAX, ' ', count, ' счастливых билетов');
end.