Question

вторую и третию задачу
сделать в паскале
(первую НЕ надо)

Answer 1

                                         PascalABC.NET                                          

Задание 2:

• ##
• var s := 8;
• for var i := 1 to 9 do
•  s += 8 + 2*i;
• s.Print

  или

• ## ArrGen(10, 8, x → x+2).Sum.Print

Задание 3:

• ##
• var (n, s) := (1, 1);
• while s<100 do
•  (n, s) := (n+1, s*2+n+1);
• n.Print