ПОДРОБНОЕ РЕШЕНИЕ ПОЖАЛУЙСТА!

Question

ПОДРОБНОЕ РЕШЕНИЕ ПОЖАЛУЙСТА!

---

---

Answer 1

1.)
var
S: real;
i, j: byte;
begin
for i:=1 to 3 do
begin
S:=0;
for j:=2 to 2 do
begin
S:=i+j
end;
end;
writeln(S)
end.

Результат: 5

2.)
var
S: real;
i, j: byte;
begin
i:=1;
S:=0;
j:=15;
while (ibegin
S:=S+i*j;
i:=i+1;
j:=j-1;
end;
writeln(s)
end.

Результат: 308