Question

Помогите решить 1. Напишите программу, вычисляющую площадь прямоугольника. С клавиатуры вводятся два действительных числа - стороны прямоугольника. Необходимо вычислить его площадь и вывести на экран. Вывод должен быть отформатирован следующим образом: под число отводится 10 знаков, а под вещественную часть - 3. 2. С клавиатуры вводятся 3 целых числа. Определить количество положи¬тельных чисел в этом наборе.

Answer 1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
{
программа, вычисляющая площадь прямоугольника.
}
var
  a,b: real;

begin
  write('Стороны прямоугольника ');
  read(a,b);
  writeln(' Площадь фигуры = ',a*b:10:3);
end.

Тестовое решение:
Стороны прямоугольника 5.3 6.7
 Площадь фигуры =     35.510

{
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел
в этом наборе.
}
var
  a,i,n: integer;

begin
  for i:=1 to 3 do begin
  write(i,'число = ');readln(a);
  if a>0 then n:=n+1;
  end;
  writeln(' Положительных :',n);
end.

Answer 2

Конечно, вот программы на Python для выполнения обоих задач:

1. Программа для вычисления площади прямоугольника:

pythonCopy code
# Ввод сторон прямоугольника с клавиатуры
a = float(input("Введите длину стороны A: "))
b = float(input("Введите длину стороны B: "))

# Вычисление площади прямоугольника
area = a * b

# Вывод результата с форматированием
print(f"Площадь прямоугольника: {area:.2f}")

2. Программа для определения количества положительных чисел среди трех введенных:

pythonCopy code
# Ввод трех целых чисел с клавиатуры
num1 = int(input("Введите первое целое число: "))
num2 = int(input("Введите второе целое число: "))
num3 = int(input("Введите третье целое число: "))

# Инициализация счетчика положительных чисел
count = 0

# Проверка каждого числа и увеличение счетчика при необходимости
if num1 > 0:
    count += 1
if num2 > 0:
    count += 1
if num3 > 0:
    count += 1

# Вывод результата
print(f"Количество положительных чисел: {count}")

Вы можете скопировать эти программы и выполнить их в вашей среде программирования Python.