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

+ 0 -

Pashokxv

18 сент. 2016 г., 1:35:08 (7 лет назад)

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.
 

+ 0 -

Kefendiyeva1978

18 сент. 2016 г., 2:34:24 (7 лет назад)

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

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

+ 0 -

Katrin233a

18 сент. 2016 г., 4:55:21 (7 лет назад)

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

+ 0 -

Anasteusha

18 сент. 2016 г., 7:02:49 (7 лет назад)

Паскаль

+ 0 -

Лизка06

18 сент. 2016 г., 8:25:07 (7 лет назад)

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