Question

Помогите пожалуйста №7

Answer 1

А) var a,i,su,ss:integer;begina:=1;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+2;end;writeln(ss,' ',su);end.
Б)var a,i,su,ss:integer;begina:=2;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+2;end;writeln(ss,' ',su);end.
В)var a,i,su,ss:integer;begina:=3;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+3;end;writeln(ss,' ',su);end.
Г)var a,i,su,ss:integer;begina:=4;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+4;end;writeln(ss,' ',su);end.