Решите по информатике. на паскале (фри) вывести все нечетные числа от 1 до заданного n 1)в порядке возрастания 2)в порядке убывания

Машуня55 Машуня55    2   25.07.2019 12:30    0

Ответы
ДОМАШКАФИЗИКА ДОМАШКАФИЗИКА  07.09.2020 20:21
Var
  n, i : integer;
begin
  write('n: ');
  readln(n);
  
  for i := 1 to n do
    if i mod 2 = 1 then
      write(i, ' ');

  writeln;

  for i := n downto 1 do
    if i mod 2 = 1 then
      write(i, ' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика