Регить

Давай разберем задачи и напишем программы на языке Pascal для их решения.

Задача 1

Условие:
Даны стороны прямоугольника \(a\) и \(b\). Написать программу, которая вычисляет его площадь \(S\) и выводит результат на экран. Значения \(a\) и \(b\) вводить с клавиатуры.

Решение:

1. Для нахождения площади прямоугольника используется формула: \[ S = a \times b \]
2. Нужно написать программу, которая запросит у пользователя значения \(a\) и \(b\).
3. Вычислим площадь и выведем результат.

Программа на 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:

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.