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

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

pascalCopy code
program SumAndProduct;
var
  inputNumber, sum, product, count: integer;
begin
  sum := 0;
  product := 1;
  count := 0;

  writeln('Введите 13 целых чисел:');
  
  for count := 1 to 13 do
  begin
    readln(inputNumber);
    if (inputNumber >= 100) and (inputNumber <= 999) and (inputNumber mod 100 = 62) then
      sum := sum + inputNumber;
    if inputNumber mod 2 <> 0 then
      product := product * inputNumber;
  end;
  
  writeln('Сумма трёхзначных чисел, оканчивающихся на 6.2: ', sum);
  writeln('Произведение нечётных чисел: ', product);
end.

В данной программе мы используем цикл for для ввода 13 целых чисел. Мы проверяем, является ли введенное число трёхзначным и оканчивается ли оно на 6.2, чтобы добавить его к сумме. Также мы проверяем, является ли число нечётным, чтобы умножить его на общее произведение.