Question

Помогите пожалуйста 1. Составить программу, находящую сумму всех трёхзначных чисел, оканчивающихся на 6.2. С клавиатуры вводятся 13 целых чисел.Найти произведение нечётных.Паскалем

Answer 1

##

(106..996).Where(n -> n mod 6 = 0).Sum.Println;

ReadSeqInteger(13).Where(n -> n.IsOdd).Product(n -> BigInteger(n)).Print

Answer 2

Программа, написанная на Pascal, для нахождения суммы всех трёхзначных чисел, оканчивающихся на 6.2, и произведения нечётных чисел из введённых 13 целых чисел, может выглядеть следующим образом:

pascalCopy code
program SumAndProduct;

var
  i, number, sum, product: integer;

begin
  sum := 0;
  product := 1;

  writeln('Введите 13 целых чисел:');

  for i := 1 to 13 do
  begin
    write('Введите число ', i, ': ');
    readln(number);

    if (number >= 100) and (number <= 999) and (number mod 100 = 62) then
      sum := sum + number;

    if number mod 2 <> 0 then
      product := product * number;
  end;

  writeln('Сумма всех трёхзначных чисел, оканчивающихся на 6.2: ', sum);
  writeln('Произведение всех нечётных чисел: ', product);

  readln;
end.

Программа сначала запрашивает ввод 13 целых чисел от пользователя и проверяет каждое число на соответствие условиям. Если число трёхзначное и оканчивается на 6.2, оно добавляется к сумме. Кроме того, программа находит произведение всех нечётных чисел, введенных пользователем, и выводит результаты.