Паскаль абс 2 задачи 1)Написать программу выводящую на экран последовательность чисел от 1 до 10 через...

1)

program PrintNumbers;
var
  i: integer;
begin
  for i := 1 to 10 do
    write(i, ' ');
end.

2)

program OddProduct;
var
  i, product: integer;
begin
  product := 1;
  for i := 10 to 20 do
  begin
    if i mod 2  0 then
      product := product * i;
  end;
  writeln('Product of odd numbers from 10 to 20: ', product);
end.

Для выполнения первой задачи в Pascal можно использовать следующий код:

program PrintNumbers;
var
  i: integer;
begin
  for i := 1 to 10 do
    write(i, ' ');
end.

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

Для выполнения второй задачи в Pascal можно использовать следующий код:

program OddNumbersProduct;
var
  i, product: integer;
begin
  product := 1;
  for i := 10 to 20 do
  begin
    if i mod 2  0 then
      product := product * i;
  end;
  writeln('Произведение нечетных чисел от 10 до 20: ', product);
end.

Этот код создает программу, которая находит произведение всех нечетных чисел от 10 до 20 и выводит его на экран.

Давайте разберемся с каждой из задач по отдельности.

Задача 1: Вывод чисел от 1 до 10

Для решения этой задачи в языке программирования Pascal можно использовать простой цикл с переменной, которая будет изменять свое значение от 1 до 10. В каждой итерации цикла это значение будет выводиться на экран с последующим пробелом.

program OutputNumbers;
var
  i: Integer;
begin
  for i := 1 to 10 do
    Write(i, ' ');
  Writeln;  // Перевод строки после вывода чисел
end.

Задача 2: Произведение нечетных чисел от 10 до 20

Для решения второй задачи также можно использовать цикл, но в данном случае потребуется проверять, является ли текущее число нечетным перед тем, как умножать его на результат. Нечетное число определяется условием i mod 2 0.

program ProductOfOdds;
var
  i: Integer;
  product: LongInt;
begin
  product := 1;
  for i := 10 to 20 do
    if i mod 2  0 then
      product := product * i;
  Writeln('Произведение нечетных чисел от 10 до 20 равно ', product);
end.

В первой программе используется команда Write, чтобы выводить числа в одну строку, и Writeln в конце для перевода курсора на новую строку. Во второй программе используется переменная product для хранения промежуточных значений произведения, которые обновляются в цикле. Обе программы должны быть компилированы и запущены в среде, поддерживающей Pascal.