А) Построить таблицу значений периметра и площади квадрата при изменении его стороны от 1 см до 41 см с шагом 2 см. Найти сумму каждого столбца и отформатировать эту строку так же, как и шапку таблицы. Б) Построить таблицу значений периметра и площади круга при изменении его радиуса от 2 см до 42 см с шагом 2 см. Найти сумму каждого столбца и отформатируй эту строку так же, как и шапку таблицы.

Решение в прикрепленном файле! а) на листе 1, б) на листе 2

Объяснение:

Соблюдение простых правил избежать многих проблем

1. Советуйтесь с родителями. 
Обязательно спрашивайте родителей о незнакомых вещах в Интернете. Например, о получении странного сообщения или предложения.

2. Храните личную информацию в тайне!
Не пишите в Интернете (в том числе в играх и на своих страничках в социальных сетях) личную информацию, такую как: домашний адрес, номера домашнего и мобильного телефонов, адрес электронной почты, место учёбы.

3. Не открывайте подозрительные файлы. 
Не стоит скачивать или открывать неизвестные, а особенно присланные незнакомцами файлы. Это может привести к заражению компьютера вирусами.

4. Не переносите виртуальные знакомства в реальность. 
Если виртуальный знакомый хочет пообщаться или встретиться с вами в реальной жизни – ни в коем случае не соглашайтесь. Люди в сети не всегда рассказывают правду о себе и целях своих поступков. Обязательно сообщите о таком предложении родителям.

5. Не спешите отправлять sms.
Если за скачивание картинки или музыки из Интернета, или для покупки игровых ценностей просят отправить sms, спрашивайте разрешение у родителей для отправки подобных сообщений.

6. Будьте дружелюбны.
Не нужно писать грубых слов, потому что читать их так же неприятно, как и слышать, к тому же за грубости на ваш аккаунт могут быть наложены ограничения.

7. Храните пароли в секрете.
Храните в секрете свои пароли от страничек, почты и игр от всех, кроме родителей.

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var n:=ReadInteger('n=');
  var r:BigInteger:=1;
  for var i:=1 to n do begin
    r*=2; Writeln(i,' - ',r)
    end
end.

Тестовое решение:
n= 50
1 - 2
2 - 4
3 - 8
4 - 16
5 - 32
6 - 64
7 - 128
8 - 256
9 - 512
10 - 1024
11 - 2048
12 - 4096
13 - 8192
14 - 16384
15 - 32768
16 - 65536
17 - 131072
18 - 262144
19 - 524288
20 - 1048576
21 - 2097152
22 - 4194304
23 - 8388608
24 - 16777216
25 - 33554432
26 - 67108864
27 - 134217728
28 - 268435456
29 - 536870912
30 - 1073741824
31 - 2147483648
32 - 4294967296
33 - 8589934592
34 - 17179869184
35 - 34359738368
36 - 68719476736
37 - 137438953472
38 - 274877906944
39 - 549755813888
40 - 1099511627776
41 - 2199023255552
42 - 4398046511104
43 - 8796093022208
44 - 17592186044416
45 - 35184372088832
46 - 70368744177664
47 - 140737488355328
48 - 281474976710656
49 - 562949953421312
50 - 1125899906842624