ответ:1)194 2)110
Объяснение:
1) var s; k: integer;
begin
s:=5;
for k:=1 to 6 do (цикл в котором к становится массивом и заполняется числами от 1 до 6 (1 2 3 4 5 6))
s:=s+9*k; (1. 5+9*1=14 2. 14+9*2=32 3. 32+9*3=59 4. 59+9*4=95 5. 95+9*5=140 6. 140+9*6=194)
writeln(s);
end
2)var s; k: integer;
begin
s:=2;
for k:=6 to 14do (цикл в котором к становится как бы счётчиком для действия ниже)
s:=s+12 (6]2+12=14 7]14+12=26 8]26+12=38 9]38+12=50 10]50+12=62 11]62+12=74 12]74+12=86 13]86+12=98 14]98+12=110)
writeln(s);
end
===== PascalABC.NET =====
type
Node = auto class
public
data: integer;
left, right: Node;
end;
procedure Add(var root: Node; x: integer);
begin
if root = nil then
begin
root := new Node(x, nil, nil);
exit
end;
if root.data > x then
Add(root.left, x)
else if root.data < x then
Add(root.right, x)
end;
procedure Postfix(root: Node);
begin
if root = nil then exit;
Postfix(root.left);
Postfix(root.right);
Print(root.data)
end;
begin
var s := Seq(51, 25, 73, 15);
var R: Node;
R := nil;
foreach var x in s do
Add(R,x);
Add(R, 31);
Add(R, 93);
Postfix(R);
end.