1)Напишіть програму, яка друкує усі непарні числа з інтервалу [1, b], де b - ціле число, яке вводить користувач. Не можна використовувати конструкцію розгалуження Вхідні дані: 15 8 Вихідні дані: 51 3 5 7 9 11 13 15 1 3 5 7 2) Напишіть програму, яка зчитує цілі числа, введені користувачем, по одному числу n в рядку. Для кожного введеного числа необхідно перевірити: якщо число менше 10, то пропускаємо це число; якщо число більше 100, то припиняємо зчитувати числа; в інших випадках вивести це число в окремому рядку. Вхідні дані: 15 4 11 123 Вихідні дані: 15 11 первое через цикл for, второе while python

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

№1
begin
  var s:=ReadInteger.ToString;
  if s=s.Distinct.Sorted.JoinIntoString('') then
    Writeln('Цифры являются возрастающей последовательностью')
  else
    Writeln('Цифры не являются возрастающей последовательностью')
end.

Примеры
148
Цифры являются возрастающей последовательностью

355
Цифры не являются возрастающей последовательностью

№2
begin
  var x,y:real;
  Write('Введите координаты точки: '); Read(x,y);
  if x*y=0 then Writeln('Нули вводить не допускается')
  else
    if x*y>0 then
      if x>0 then Writeln('I четверть')
      else Writeln('III четверть')
    else
      if x>0 then Writeln('IV четверть')
      else Writeln('II четверть')
end.

Пример
Введите координаты точки: -2 -3.2
III четверть