Question

1.2 Вычислите сумму квадратов двузначных чисел. 1.3 Найдите произведение натуральных чисел второго десятка.**Если останется время, то напишите программу на Паскаль и проверьте правильность решения в программной среде

Answer 1

Ответ:

1.2sum(map(lambda x: x**2, filter(lambda x: not x%9, range(10,100))))

Объяснение:

Простите 2 не знаю

Answer 2

// PascalABC.NET 3.6.3

begin

 (10..99).Select(p -> p * p).Sum.Println; // 1.2

 (10..20).Product.Print // 1.3

end.

Answer 3

#### 1.2 Вычисление суммы квадратов двузначных чисел Для вычисления суммы квадратов двузначных чисел, нам нужно просуммировать квадраты всех чисел от 10 до 99. **Шаги для вычисления суммы квадратов двузначных чисел:** 1. Найдите квадрат каждого двузначного числа от 10 до 99. 2. Просуммируйте все полученные квадраты. **Вычисление квадрата двузначного числа:** Квадрат двузначного числа можно найти, умножив это число на само себя. **Пример:** Для числа 12, квадрат будет равен 12 * 12 = 144. **Вычисление суммы квадратов двузначных чисел:** Теперь, чтобы найти сумму квадратов всех двузначных чисел, мы просто просуммируем квадраты каждого числа от 10 до 99. **Пример:** Сумма квадратов двузначных чисел будет равна 10^2 + 11^2 + 12^2 + ... + 99^2. #### 1.3 Нахождение произведения натуральных чисел второго десятка Для нахождения произведения натуральных чисел второго десятка, мы должны умножить все числа от 10 до 19. **Шаги для нахождения произведения натуральных чисел второго десятка:** 1. Умножьте все числа от 10 до 19. **Пример:** Произведение натуральных чисел второго десятка будет равно 10 * 11 * 12 * ... * 19. #### Программа на Паскаль для проверки правильности решения ```pascal program CheckSolution; var i: integer; sumOfSquares: integer; productOfNumbers: integer; begin sumOfSquares := 0; productOfNumbers := 1; // Вычисление суммы квадратов двузначных чисел for i := 10 to 99 do begin sumOfSquares := sumOfSquares + i * i; end; // Нахождение произведения натуральных чисел второго десятка for i := 10 to 19 do begin productOfNumbers := productOfNumbers * i; end; writeln('Сумма квадратов двузначных чисел: ', sumOfSquares); writeln('Произведение натуральных чисел второго десятка: ', productOfNumbers); end. ``` Вы можете запустить эту программу в среде разработки Pascal, чтобы проверить правильность решения.