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


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

orynbasar2001 orynbasar2001    3   22.05.2020 16:08    0

Ответы
SpoonKeeper SpoonKeeper  15.10.2020 06:18

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.


Решите задачу в программе PASCALABC.NET
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика