Составить блок-схему к задаче:найти периметр четырёхугольника
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.
Оцени ответ
Вход
Регистрация
Задать вопрос
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.