Question

Составить блок-схему к задаче:найти периметр четырёхугольника

Answer 1

Var   p,a,b,c,d:integer;
Begin   
Writeln('Введите A, B, C, D!');   
 Readln(a,b,c,d);   
P:=a+b+c+d;   
Writeln('Периметр = ', p);
End.

Answer 2

Блок-схема для нахождения периметра четырехугольника:

Начало
|
Ввод стороны a
|
Ввод стороны b
|
Ввод стороны c
|
Ввод стороны d
|
Вычисление периметра (a + b + c + d)
|
Вывод периметра
|
Конец

Для нахождения периметра четырехугольника сначала необходимо ввести значения всех его сторон (a, b, c, d). Затем производится вычисление суммы всех сторон, что и будет являться периметром четырехугольника. Полученное значение выводится на экран.