Munas
10.12.2022 17:16

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


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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Sheripova041
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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота