Участок земли прямоугольной формы имеет длину a м и ширину b м. запишите алгоритм определения площади участка, а также длины забора, который потребуется для ограждения участка. выполните алгоритм на аримере некоторого земельного участка.

program raf105;

var a,b,s,p: integer;

begin

write('введите длину и ширину участка через пробел: ');

readln(a,b);

s: = a*b;

p: = (a+b)*2;

writeln('площадь участка: ',s,' м²');

writeln('длина забора: ',p,' м');

end.

программа написана на языке pascalabc.net

1. плывут два ребенка

2. один ребенок возвращается

3. плывет взрослый на др. берег

4. возвращается второй ребенок

5. плывут два ребенка на др. берег

6. один ребенок возвращается

7. плывет взрослый на др. берег

8. возвращается второй ребенок

9. плывут два ребенка на др. берег

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.