Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

написать программу периметра шестиугольника спс

Ответ оставил Гость

Если у шестиугольника все стороны одинаковой длины, то можно так:

Program Zadacha;
Var
    n, p: Integer;
Begin
    Write(длина стороны шестиугольника = );
    ReadLn(n);
    
    p := 6 * n;
    
    WriteLn(периметр = , p);
    
    ReadLn;
End.