Question

срочно, 30 баллов, информатика
​

Answer 1

Ответ:

1.

var S,k: integer;

begin

s:=0;

for k:=1 to 7 do

 s:=s+2*k;

writeln(S);

end.

2.

var S,i: integer;

begin

s:=1;

for i:=1 to 8 do

 s:=s*i;

writeln(S);

end.