составить программу ввода и вывода 15 элементов массива по формуле w[i]=w[i-1] +3 , где w[1]=0

1

Ответы и объяснения

2013-05-12T20:05:26+04:00

var w:array[-1000..1000] of integer;
i,n,r:integer;
begin
n:=15;
w[1]:=0;
for i:=1 to n do begin
w[i]:=w[i-1]+3;
end;
for i:=1 to n do begin
writeln(w[i]);
end;
end.