Question

Решите задачу в программе PASCALABC.NET

Answer 1

Ответ:

program M;    

var a: array[1..17] of integer;  

N, i: integer;    

begin  

write('Введите N: ');  

readln(N);  

a[1] := 1;  

for i := 2 to N do  

 a[i] := a[i - 1] + 2;  

for i := 1 to N do  

 write(a[i],' ')  

end.