Программу счета периметр прямоугольника создавать Паскаль Черта алгоритмПомогитее(

Question

Программу счета периметр прямоугольника создавать Паскаль Черта алгоритм
Помогитее(

Comments

Это Вы на каком языке задачу написали?

---

Паскаль

---

Да не Вы, это автору вопроса адресовано...

Answer 1

Var
  a, b, p: real;

begin
  Write('Введите через пробел длины сторон: ');
  Readln(a, b);
  p := 2 * (a + b);
  Writeln('Периметр прямоугольника равен ', p:0:2)
end.

Тестовое решение:
Введите через пробел длины сторон: 12.3 9.18
Периметр прямоугольника равен 42.96

Блок-схема находится во вложении.

Answer 2

Program znanija;
const
INPUT_SIDE_A = 'Введите A: ';
INPUT_SIDE_B = 'Введите B: ';
OUTPUT_PERIMETER = 'Периметр равен: ';
var
  sideA : integer;
  sideB : integer;
  perimeter : integer;
begin
write(INPUT_SIDE_A);
read(sideA);
write(INPUT_SIDE_B);
read(sideB);

perimeter := 2 * (sideA + sideB);
write(OUTPUT_PERIMETER);
write(perimeter);
end.
 

Comments

А Вот это Вам: вместо периметра Вы посчитали площадь.

---

Спасибо большое) уже исправил