Question

Дан текстовый файл, в котором через пробел записаны 6 целых чисел. Вывести на экран произведение чисел, которые меньше числа 15, но больше числа 7. На проверку нужно прислать скриншот с кодом программы на Паскале и полученный текстовый файл. Программная реализация обязательна.

Answer 1

Ответ:

(см. объяснение)

Объяснение:

Решение задачи на PascalABC.NET:

##

ReadAllText('C:/example.txt').Split(' ').ConvertAll(s->Integer.Parse(s)).Where(x->(x>7) and (x<15)).Aggregate(1,(p,x)->p*x).Print;

Задание выполнено!

Answer 2

К сожалению, я не могу предоставить вам скриншот с кодом программы на Pascal, так как моя способность ограничивается текстовой информацией и не включает в себя создание файлов или изображений. Однако, я могу предоставить вам код программы на Pascal и объяснить, как выполнить данную задачу.

Вот пример программы на Pascal, которая читает числа из текстового файла и выводит произведение чисел, удовлетворяющих заданным условиям:

pascalCopy code
program FindProduct;
var
  inputFile: text;
  number, product: integer;
begin
  assign(inputFile, 'input.txt');  // Укажите имя вашего текстового файла
  reset(inputFile);

  product := 1;  // Инициализируем произведение единицей

  while not eof(inputFile) do
  begin
    read(inputFile, number);

    // Проверяем, удовлетворяет ли число условиям
    if (number > 7) and (number < 15) then
      product := product * number;
  end;

  close(inputFile);

  writeln('Произведение чисел, которые меньше 15 и больше 7: ', product);
end.

Чтобы выполнить эту программу, вам нужно создать текстовый файл с именем "input.txt" и записать в него 6 целых чисел, разделенных пробелами. Затем запустите программу на выполнение, и она выведет на экран произведение чисел, удовлетворяющих вашим условиям.

После выполнения программы, вы сможете сделать скриншот ее вывода и отправить его для проверки.