Question

Помогите пожалуйста. Очень срочно!! Составить программу на цикл с постусловием , которая будет выводить нечетные числа до 16. А также используйте в программе счетчик через процедуру Inc.

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var i:=1;
  repeat
    Print(i);
    Inc(i); Inc(i); // идиотизм, но таково задание
  until i>16;
  Writeln
end.

Результат
1 3 5 7 9 11 13 15

А по-хорошему эта программа пишется так:
begin
  Range(1,16,2).Println
end.