Программу счета периметр прямоугольника создавать Паскаль Черта алгоритмПомогитее(
Программу счета периметр прямоугольника создавать Паскаль Черта алгоритм
Помогитее(
Ответ(ы) на вопрос:
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.
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
Блок-схема находится во вложении.
Не нашли ответ?
Похожие вопросы