Question

Найти периметр шестиугольника по длинам его шести сторон. Вводятся: шесть чисел – длины сторон Выводится: одно число – периметр

Answer 1

Написано на Pascal

var

 a,b,i:integer;

begin

 writeln('Введите длины сторон шестиугольника:');

 for i:=1 to 6 do begin

   write('Длина '+i+' стороны: ');

   readln(a);

   b:=b+a;

 end;

 writeln('Периметр равен: '+b);

end.