Написать программу периметра шестиугольника спс
Написать программу периметра шестиугольника спс
Гость
Ответ(ы) на вопрос:
ГостьЕсли у шестиугольника все стороны одинаковой длины, то можно так: Program Zadacha;
Var
n, p: Integer;
Begin
Write('длина стороны шестиугольника = ');
ReadLn(n);
p := 6 * n;
WriteLn('периметр = ', p);
ReadLn;
End.
Гостьprogram cmisfnjs; uses crt; var a,b,c,d,e,f,p:integer; begin readln(a,b,c,d,e,f); p:=a+b+c+d+e+f; writeln(p); readln; end. Если стороны разные,
Не нашли ответ?
Похожие вопросы