Ответ:
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.