• Составьте программу,которая выводит на экран нечетные числа от 1 до 50 в порядке убывания.

Ответы 4

  • а если мы не проходили downto? то как
  • vari:integer;begini:=50;while i > 0 do beginif i mod 2 = 1 then write(i,' ');i:=i-1;end;end.
  • спасибо)
  • //PascalABC.NETvari:integer;beginfor i:=50 downto 1 doif i mod 2 =1 then writeln(i);end.
    • Автор:

      mauricio
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years