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

0 голосов
27 просмотров

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


image

Информатика | 27 просмотров
Дан 1 ответ
0 голосов

А) 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.

(111 баллов)