Участок земли прямоугольной формы имеет длину 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

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов