дано целое число n >0 сформировать и вывести целочисленный ...
Ответ
var
a : array [1..10000] of integer;
n, i : integer;
begin
writeln ('N = ');
read (n);
for i := 1 to n do
begin
a[i] := (i - 1) * 2 + 1;
write (a[i], ' ');
end;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022