Регить

Давай разберем задачи и напишем программы на языке Pascal для их решения. ### Задача 1 **Условие:** Даны стороны прямоугольника \(a\) и \(b\). Написать программу, которая вычисляет его площадь \(S\) и выводит результат на экран. Значения \(a\) и \(b\) вводить с клавиатуры. **Решение:** 1. Для нахождения площади прямоугольника используется формула: \[ S = a \times b \] 2. Нужно написать программу, которая запросит у пользователя значения \(a\) и \(b\). 3. Вычислим площадь и выведем результат. **Программа на Pascal:** ```pascal program RectangleArea; var a, b, S: real; begin writeln('Введите стороны прямоугольника:'); readln(a, b); S := a * b; writeln('Площадь прямоугольника: ', S:0:2); end. ``` ### Задача 2 **Условие:** Дано целое трехзначное число \(x\). Составить программу вычисления суммы и произведения цифр трехзначного числа \(x\). Значение \(x\) ввести с клавиатуры. **Решение:** 1. Трехзначное число \(x\) имеет сотни, десятки и единицы. Обозначим их как \(c\), \(d\), и \(e\) соответственно. 2. Для вычисления суммы и произведения цифр используется следующее: - Сотни: \(c = x \div 100\) - Десятки: \(d = (x \div 10) \mod 10\) - Единицы: \(e = x \mod 10\) 3. Сумма цифр: \( \text{Sum} = c + d + e \) 4. Произведение цифр: \( \text{Product} = c \times d \times e \) **Программа на Pascal:** ```pascal program SumAndProductOfDigits; var x, c, d, e, Sum, Product: integer; begin writeln('Введите трехзначное число:'); readln(x); c := x div 100; d := (x div 10) mod 10; e := x mod 10; Sum := c + d + e; Product := c * d * e; writeln('Сумма цифр: ', Sum); writeln('Произведение цифр: ', Product); end. ``` Обе программы просты и позволяют разобраться в основах работы с вводом и вычислениями на языке Pascal.