Каждый человек желает знать где берут мозоль
Написано на 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.
program raf105;
var n,a,b,s,sum,i:integer;
begin
write('Введите количество комнат: ');
readln(n);
for i:=1 to n do
begin
writeln;
writeln('Комната №',i);
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
s:= a*b;
writeln('Площадь: ',s,' м²');
sum:= sum+s;
end;
writeln;
writeln('Общая сумма площадей всех комнат: ',sum,' м²');
end.
<u><em>Язык программирования PascalABC</em></u>